procedure TForm1.Button1Click(Sender: TObject); var Kullanici_ismi:array[0..255] of char; BufferSize:DWORD; begin BufferSize:=SizeOf(Kullanici_ismi); GetUserName(@Kullanici_ismi,BufferSize); Showmessage(Kullanici_ismi); end;