1.GetComputerName - 获取计算机名称
var arr:array[0..MAX_COMPUTERNAME_LENGTH]of char;
d: DWORD;
begin
d := SizeOf(arr);
GetComputerName(arr, d);
ShowMessage(arr);
end;
2.GetCursorPos 获取的是鼠标相对与屏幕的位置
var
ps: TPoint;
str: string;
begin
GetCursorPos(ps);
str := Format('%d,%d',[ps.X,ps.Y]);
ShowMessage(str);
end;
3. SetComputerName - 更改计算机名称
s := 'NewName';
if SetComputerName(PChar(s))then
ShowMessage(s)
{改名成功后, 重新启动计算机后才有效}
4.SetCursorPos - 设置鼠标指针位置
SetCursorPos(0,0);{鼠标移动到左上角}
5.GetTickCount: DWORD;{无参数; 返回系统已启动的时间(毫秒)}
t := GetTickCount;
ShowMessage(IntToStr(t));
6.GetUserName - 获取当前用户名
var
arr: array[0..254]of Char;
d: DWORD;
begin
d := SizeOf(arr);
GetUserName(arr, d);
ShowMessage(arr); {wy}
end;
7.GetVersion - 获取系统版本号
d := GetVersion;
8.GetVersionEx - 获取系统版本详细信息
var
OsInfo: TOSVersionInfo;
const s ='主编号: %d' + sLineBreak +
'次编号: %d' + sLineBreak +
'建立编号: %d' + sLineBreak +