如何获取当前登录用户名? [英] How to get currently logged in username?
本文介绍了如何获取当前登录用户名?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
如何在Firemonkey Delphi项目中获取当前登录的用户名?我的目标是Windows和Mac。
How do you get the currently logged in username in a Firemonkey Delphi project? I'm targeting both Windows and Mac.
我有XE2,但我想任何版本的解决方案都很好,因为如果需要,我将升级。
I have XE2, but I suppose any version solution is fine because I will upgrade if needed.
推荐答案
对于Windows,您可以使用 GetUserName
WinAPi功能,对于OSX,您可以使用 NSUserName
和/或 NSFullUserName
方法。
For Windows you can use the GetUserName
WinAPi function, for OSX you can use the NSUserName
and/or NSFullUserName
methods.
尝试此示例为OSX
{$APPTYPE CONSOLE}
{$R *.res}
uses
Macapi.CoreFoundation,
Macapi.Foundation,
System.SysUtils;
function NSUserName: Pointer; cdecl; external '/System/Library/Frameworks/Foundation.framework/Foundation' name _PU +'NSUserName';
function NSFullUserName: Pointer; cdecl; external '/System/Library/Frameworks/Foundation.framework/Foundation' name _PU + 'NSFullUserName';
begin
try
Writeln(Format('User Name %s',[TNSString.Wrap(NSUserName).UTF8String]));
Writeln(Format('Full User Name %s',[TNSString.Wrap(NSFullUserName).UTF8String]))
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
对于Windows
{$APPTYPE CONSOLE}
uses
Windows,
SysUtils;
function WUserName: String;
var
nSize: DWord;
begin
nSize := 1024;
SetLength(Result, nSize);
if GetUserName(PChar(Result), nSize) then
SetLength(Result, nSize-1)
else
RaiseLastOSError;
end;
begin
try
Writeln(WUserName);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
readln;
end.
编译成一个单位:
uses
{$IFDEF MACOS}
MacApi.CoreFoundation, MacApi.Foundation,
{$ENDIF}
{$IFDEF MSWINDOWS}
Windows,
{$ENDIF}
System.SysUtils;
{$IFDEF MACOS}
function NSUserName: Pointer; cdecl; external '/System/Library/Frameworks/Foundation.framework/Foundation' name '_NSUserName';
{$ENDIF}
function GetUserName: String;
{$IFDEF MSWINDOWS}
var
nSize: DWord;
{$ENDIF}
begin
{$IFDEF MACOS}
Result := TNSString.Wrap(NSUserName).UTF8String;
{$ENDIF}
{$IFDEF MSWINDOWS}
nSize := 1024;
SetLength(Result, nSize);
if Windows.GetUserName(PChar(Result), nSize) then
begin
SetLength(Result, nSize - 1)
end
else
begin
RaiseLastOSError;
end
{$ENDIF}
end;
这篇关于如何获取当前登录用户名?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文