Определение имени компьютера средствами WinAPI

На этот вопрос отвечает Vitaliy Jungle:

procedure TForm1.Button1Click(Sender: TObject);
var
compnm:array[0..50] of Char; i:integer; comp:boolean; begin
comp:=null; for i:=0 to 50 do begin comp:=GetComputerName(compnm,i); if comp=true then begin Edit1.text:=strpas(compnm); Exit; end; end; end;

[001958]

Содержание раздела