ユーザー名を取得する

■必要なコンポーネント

■使用するAPI関数

■ソースは下記のようになります。

■ユーザー名を取得する処理
procedure TForm1.Button1Click(Sender: TObject);
Var
　//バッファを確保
　UserName : array [0..256] of char;
　Length :Integer;
begin

　//ユーザー名を取得
　GetUserName(UserName, Length);
　ShowMessage(UserName);

end;




Win32APIのページへ



ホーム PV ランキング