Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Windows

**CalganX**

Hi und willkommen,
diese Möglichkeit gibt es:

Delphi-Quellcode:

			function Benutzername: string;

var

  Buffer: Array[0..MAX_PATH+1] of Char;

  Size: DWORD;

begin

  size:=1024;

  GetUserName(Buffer, Size);

  Result:= StrPas(Buffer);

end;

Chris

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#2 28. Dez 2002, 17:29 Hi und willkommen, diese Möglichkeit gibt es: markieren Delphi-Quellcode: function Benutzername: string; var Buffer: Array[0..MAX_PATH+1] of Char; Size: DWORD; begin size:=1024; GetUserName(Buffer, Size); Result:= StrPas(Buffer); end; Chris
	Zitat