|
|
| Submitted on: 10/11/2003 11:27:18 AM
By: Ian Fain.
Level: Beginner
User Rating: Unrated
Compatibility:Delphi 7, Delphi 6, Delphi 5, Delphi 4
Users have accessed this article 1705 times.
|
(About the author) |
| | | This is a great and easy way to get a user's Windows XP Username.
| |
| |
Terms of Agreement:
By using this article, you agree to the following terms...
1) You may use
this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description. | I thought I might share this. It's pretty simple, but it comes in handy. To successfully get a user's Windows XP Username, use this code I have written:
function WinXPUserName(): string;
var
user : array[0..255] of char;
sizeOfuser : cardinal;
begin
sizeOfuser := sizeof(user);
if getusername(user,sizeOfuser) = true then
begin
result := string(user);
end else begin
result := 'NO USER';
end;
end;
That will get the Windows XP Username. Although, if the person isn't running Windows XP, the function will return the value "NO USER".
| |
Other 3 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
10/11/2003 12:33:49 PM:Bastian Rieck
Nice snippet, but you could also use
the "GetUserName"/"GetUserNameEx"
function of the Platform SDK...
|
10/11/2003 12:34:55 PM:Bastian Rieck
....I mean that would work under
Win2000, too.
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this article has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular article, please click here.
|
|
