|
|
|
Název počítače
|
04.12.2009
|
Úvod
Funkce vypíše název počítače ze systému (identifikace počítače v síti).
Prvky
Button1
Label1
Kód
procedure TForm1.Button1Click(Sender: TObject);
var
tmpbuff,cname: string;
size: cardinal;
begin
setlength(tmpbuff,0);
SetLength(cname, 255);
size:=255;
GetcomputerName(Pchar(cname),size);
Label1.caption:=cname;
end;
|
|
|
