ログインユーザー名を取得する

現在ログインしているユーザー名を取得するには GetUserName 関数を使用します。

■ ログインユーザー名を取得する例 
  procedure TForm1.Button1Click(Sender: TObject);  
  var
    chrName : array [0..127]  of  char;
    intBuff : integer;
  begin
    intBuff :=  SizeOf(chrName);
    if  GetUserName(chrName, intBuff)  then
    begin
      Label1.Caption  :=  chrName;
    end;
  end;

■ コンピュータ名を取得する例 
  procedure TForm1.Button1Click(Sender: TObject);  
  var
    chrName : array [0..127]  of  char;
    intBuff : integer;
  begin
    intBuff :=  SizeOf(chrName);
    if  GetComputreName(chrName, intBuff)  then
    begin
      Label1.Caption  :=  chrName;
    end;
  end;