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 Set a form's maxwidth in code?

1674

---

How to do Sorting on Calculated fields ?

1879

---

How to Use Control Characters With Delphi?

2054

---

What if I do not have a CD-ROM drive?

804

---

How to Send a message to all controls on a form 16-JUL-98?

1626

---

How to capture an image from a video source?

1708

---

How to Move the application server to another machine?

1537

---

What is the procedure to access the database from delphi?

855

---

How to Finddistance between two points?

1954

---

How can one prevent a TForm from being moved or resized?

1674

---

How to avoid "Random" Exceptions being raised when using TJPEGImage or the JPEG unit?

1684

---

How to install programatically a printer?

1795

---

How do abstract classes differ from interfaces?

910

---

What is the diff between IT Company & other companies?.

2363

---

How to Convert a TColor value to a HTML Color string ?

1894

---