|
Вопрос # 412/ вопрос открыт / |
|
Здравствуйте! Как определить имя пользователя и имя компьютера с которого было запущено приложение?
 |
Вопрос задала: Игракова Е.А. (статус: Посетитель)
Вопрос отправлен: 16 марта 2007, 21:11
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Евгений Козаченко
Здравствуйте, Игракова Е.А.!
Сначала эти функции:
Имя компьютера:
function GetComputerNetName: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if GetComputerName(buffer, size) then
Result := buffer
else
Result := ''
end;
Имя пользователя:
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;
А потом их вызываем:
var
username,compname:string;
begin
username:=GetUserFromWindows;
compname:=GetComputerNetName;
end;
 |
Ответ отправил: Евгений Козаченко (статус: 2-ой класс)
Время отправки: 16 марта 2007, 21:25
Оценка за ответ: 4
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|