Answer Posted / 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;

How to Get the printing margin of the page?

1665

---

Where is proxies.dcu?

2013

---

How to close your application using the Escape key?

1597

---

How to create an icon from a bitmap?

1747

---

How to Extract Icons ?

1623

---

How to Converta RGB color to a CMYK color?

1569

---

How to Launch default browser on a URL?

1712

---

How to make the TDateTimePicker display blank?

1689

---

How to Provide lookup capability?

1549

---

How to Extract an icon from a .exe or .dll?

1585

---

How does one change the default directory that Delphi uses to save projects?

2198

---

How to Detect how many jobs are in the print spooler?

1642

---

How to Change the default width/height of the editor?

1727

---

How to Print in Delphi without using the TPrinter Unit ?

1756

---

How to Display a file's associated icon?

1930

---