Hallo allemaal !!
Mbv. de onderstaande functie kan ik de loginname achterhalen van in ieder geval een windows2000 gebruiker.
Code:
function getloginname : string;
var buf : Pchar;
len : integer;
begin
buf := stralloc(255);
try
len := getenvironmentvariable('username',buf,255);
if len > 0 then
getloginname := uppercase(string(buf))
else getloginname := '';
finally
strdispose(buf);
end;
end;
Dat werkt perfect, maar nu heeft men hier ook nog windows95 machines. Daar werkt ie niet mee. Weet iemand hoe ik de naam van de ingelogde user kan achterhalen met windows95 als os ?
Alvast bedankt !!
Peter
Bookmarks