| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать в win2000 под каким пользователем работают? [D6, Win2k, WinXP]
pfar © (2003-02-20 12:16:00)Как узнать в win2000 под каким пользователем работают?
Amit (2003-02-20 13:12:00) [1]функция должна возращать тип, вместо функции используй процедуру.
pfar (2003-02-20 13:01:00) [2]Вот как помощь выглядет, А вымных тут полно
pfar (2003-02-20 12:57:00) [3]function GetCurrentUserName: string;
var
Len: Cardinal; { This will have to be Integer, not cardinal, in Delphi 3. }
begin
Len := 255; { arbitrary length to allocate for username string, plus one for null terminator }
SetLength(Result, Len - 1); { set the length }
if GetUserName(PChar(Result), Len) then { get the username }
SetLength(Result, Len - 1) { set the exact length if it succeeded }
else
begin
RaiseLastWin32Error; { raise exception if it failed }
end;
end;
pfar (2003-02-20 12:46:00) [4]Все не унывающий Anatoly Podgoretsky
Anatoly Podgoretsky (2003-02-20 12:25:00) [5]Пользователь по английски User, имя Name, узнать это по поруски получить, а по английски Get
Думаю тепеть сумеешь составить комбинацию из трех слов, всего 6 комбинай.
| |
