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(Ma...