Login namnen i Windows...

[Mikey]

Jag använder denna kod för att ta reda på i vilket namn som man är inloggad i windows med:

 

var

s:string;

k:cardinal;

begin

k:=255;

setlength(s,256);

getusername(pchar(s),k);

setlength(s,strlen(pchar(s)));

end;

 

Den fungerar bra men om man inte loggar in, utan trycker avbryt så snodde den några siffror från en listbox. Men i alla fall kan man göra så att om man inte loggar in så kommer värdet 'noname' att lagras i s istället?

 

tack i förhand

 

/Mikey