WinAPI基础解析二

一、GetCursorPos-获取鼠标指针的当前位置

    //声明:
　　GetCursorPos(
　　var lpPoint: TPoint {POINT 结构指针, 接收鼠标指针的屏幕坐标}
　　): BOOL;
　　//举例:
　　var
　　pt: TPoint;
　　begin
　　GetCursorPos(pt);
　　ShowMessage(Format('ScreenX: %d; ScreenY: %d', [pt.X, pt.Y]));
　　end;

二、GetUserName-获取当前用户名

    //声明:
　　GetUserName(
　　lpBuffer: PChar;　{缓冲区}
　　var nSize: DWORD　{缓冲区大小}
　　): BOOL;
　　//举例:
　　var
　　arr: array[0..254] of Char;
　　d: DWORD;
　　begin
　　d := SizeOf(arr);
　　GetUserName(arr, d);
　　ShowMessage(arr);　 {wy}
　　end;
　　//另一例:
　　var
　　p: PChar;
　　num: DWORD;
　　begin
　　num := 0;
　　GetUserName(nil, num);
　　ShowMessage(IntToStr(num));
　　GetMem(p, num);
　　GetUserName(p, num);
　　ShowMessage(p);　　 {wy}
　　FreeMem(p);
　　end;
　　//再一例:
　　var
　　p: PChar;
　　num: DWORD;
　　begin
　　num := 0;
　　GetUserName(nil, num);
　　p := StrAlloc(num);
　　if GetUserName(p,num) then
　　ShowMessage(p)　　　　　{wy}
　　else ShowMessage('无');
　　StrDispose(p);
　　end;

3COME考试频道为您精心整理，希望对您有所帮助，更多信息在http://www.reader8.net/exam/