Delphi 获取硬盘和系统信息(1)

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 +