Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

getusername 


netter   (2001-12-29 17:26) [0]

ПЛЗ ... Как пользоваться функцией GetUserName !
C Наступающим всех!!!



Adder   (2001-12-29 18:04) [1]

procedure TForm1.Button1Click(Sender: TObject);
var buffer:pchar;
nSize:dword;
begin
nSize:=256;
GetMem(buffer,size);
GetUserName(buffer,nSize);
Label1.Caption:=buffer;
FreeMem(buffer);
end;

If the function succeeds, the return value is nonzero, and the variable pointed to by nSize contains the number of characters copied to the buffer specified by lpBuffer, including the terminating null character.
If the function fails, the return value is zero. To get extended error information, call GetLastError.




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.014 c
14-284            Vladimir Lubenchenko  2002-02-15 22:08  2002.04.01  
Where can I download Report Builder Enterprise 6.03 for Delphi 6


6-258             greenrul              2002-01-17 18:49  2002.04.01  
Как убрать scrollbar ы у WebBrowser?


14-310            Miwa                  2002-02-19 12:56  2002.04.01  
Компьютерный сленг


6-267             Reals                 2002-01-17 15:38  2002.04.01  
В локальной сети, нужно найти только сервер(а) (его имя).


1-186             Алексей А             2002-03-19 21:41  2002.04.01  
Компоненты