Советы по Delphi


Определение имени компьютера средствами 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]




Начало  Назад  Вперед