Форум: "Система";
Поиск по всему сайту: 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.048 c
1-226             reg                   2002-03-20 16:49  2002.04.01  
hidden properites


1-209             Evgenyk               2002-03-10 16:35  2002.04.01  
Как программно получить данные о версии файла ?


14-280            cypher                2002-02-16 16:24  2002.04.01  
Platform SDK


4-350             MrAngel               2002-01-28 16:58  2002.04.01  
Shell Creating - вечная проблема. Часть вторая.


1-207             tovSuhov              2002-03-20 12:29  2002.04.01  
Опять фокус с фокусом...