Приходит домой программист весь больной, сморкается. Жена у него спрашивает:
- Что случилось?
- Да вот с Вундоуз тр:хался - вирус подхватил.
function GetUserFromWindows: string;
var
UserName : string;
UserNameLen : Dword;
begin
UserNameLen := 255;
SetLength(userName, UserNameLen);
if GetUserName(PChar(UserName), UserNameLen) then
Result := Copy(UserName,1,UserNameLen - 1)
else
Result := 'Unknown';
end;
Статья Как узнать имя пользователя раздела ОС и Железо Компьютер может быть полезна для разработчиков на Delphi и FreePascal.
