LAN Web TCP Delphi

  1. Home
  2. Delphi
  3. LAN Web TCP
  4. Ağ ortamında makinenin ismini bulma
procedure TForm1.Button1Click(Sender: TObject);
var
Makine_ismi:array[0..255] of char;
BufferSize:DWORD;
begin
BufferSize:=SizeOf(Makine_ismi);
GetComputerName(@Makine_ismi,BufferSize);
Showmessage(Makine_ismi);
end;