代码实现如下
procedure TMainForm.tmrMonitorTimer(Sender: TObject); var ComputerName:array[0..MAX_COMPUTERNAME_LENGTH+1] of char; //保留计算机名的缓冲区 Buffer:Dword; // 缓冲区大小 sComputerName:string;//计算机名 begin Buffer:=MAX_COMPUTERNAME_LENGTH+1; if GetComputerName(@ComputerName,Buffer) then begin sComputerName:=ComputerName; end else begin sComputerName:=''; end; ShowMessage(sComputerName); end;