Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

Подскажите, Плз, как можно программно определить имя пользователя   Найти похожие ветки 

 
Dion   (2003-05-13 07:33) [0]

Подскажите, Плз, как можно программно определить имя пользователя и домен, по которым был произведен вход в систему ???
WINNT


 
Santa   (2003-05-13 10:46) [1]

procedure TfrmMain.FormCreate(Sender: TObject);
var buffer:array[0..20] of char; {just 0..15 should be enough, but just for sure...}
size:Dword;
begin
fillchar(buffer,0,sizeof(buffer)); {just for sure}
size:=sizeof(buffer); {save buffersize}
GetUserName(buffer,size); {fill buffer, bytes read saved in size}

sbInfo.Panels[1].Text := copy(strpas(buffer),1,size);

end;


 
hope   (2003-05-14 03:40) [2]

class function SysFuncs.SysUserName: string;
var
Buffer: array[0..260] of Char;
Size: Cardinal; {Int64 or Integer64 for Delphi 4}
begin
Result := "";
Size := SizeOf(Buffer);
if GetUserName(Buffer, Size) then
SetString(Result, Buffer, Size - 1);
end;



Страницы: 1 вся ветка

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
1-55533
Банан
2003-07-05 13:26
2003.07.17
Как переменной типа Char присвоить символ нажатой на клавиатуре к


1-55649
MsGuns
2003-07-03 19:28
2003.07.17
Чувствительность объектов к перемещениям мыши


14-55833
Blackweber
2003-07-01 10:49
2003.07.17
как запустить из батника несколько екзешников, без явного указани


1-55496
Alex-21
2003-06-12 12:30
2003.07.17
OnKeyPress и PC-Speaker


1-55616
stalker780
2003-07-03 17:37
2003.07.17
Освобождение окна