Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте! Как определить имя пользователя и имя компьютера с которого было запущено приложение?

Вопрос задала: Игракова Е.А. (статус: Посетитель) Вопрос отправлен: 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

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.