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;