getusername [D6, Win2k]
netter © (2001-12-29 17:26:00)
ПЛЗ ... Как пользоваться функцией GetUserName !
C Наступающим всех!!!
Adder (2001-12-29 18:04:00) [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.
Наверх 
ЧАТ |
Орешник |
|
