Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Внизимя пользователя Найти похожие ветки
← →
syte_ser78 © (2005-11-16 15:40) [0]как определить имя пользователя от которого запущенна программа?
← →
Eraser © (2005-11-16 15:44) [1]
> syte_ser78 © (16.11.05 15:40)
GetUserName
← →
serko © (2005-11-16 22:22) [2]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;
← →
syte_ser78 © (2005-11-18 09:02) [3]serko © (16.11.05 22:22) [2]
фигню какуюто возвращает
← →
syte_ser78 © (2005-11-18 09:06) [4]syte_ser78 © (18.11.05 9:02) [3]
прошу прощения!
Все ОК!
Допустил такую ошибку что и писать стыдно.
Спасибо!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c