How to display the current user name?
Answer / clive
use win32 function getUserName
function MyUserFunction : String;
var
pcUserName : pChar; // temporary storage
dwMaxChars : DWORD; // length parameter
Const
MAXCHARS = 255; // max length
begin
dwMaxChars := MAXCHARS;
pcUserName := strAlloc( MAXCHARS + 1 );
try
If not getUserName( pcUserName, dwMaxChars ) Then
result := ''
else
result := String( pcUserName );
finally
strDispose( pcUserName );
end;
end;
| Is This Answer Correct ? | 3 Yes | 0 No |
How to Get the longfilename from a file?
How to assign a file variable in a Record?
How to Prevent changing pages in a page control?
'Translate error, value out of bounds' error what does these errors mean?
How to Determine if a given printer is capable of printing a PostScript file?
What does the error 'Token not found'?
How to Debug an In-Proc COM Server?
What is "Error 113" during installation?
How to get serial number of my drive ?
How to Detect how many jobs are in the print spooler?
How to install BDE network ?
How to Disable a radio button in a TRadioGroup?