パソコンのユーザー名を取得するには？

解決

Kashiken 2004-02-16 06:31:20 No: 7152

WindowsXPなのですが、起動中のパソコンを使用する（ユーザーになっている）すべてのユーザーを取得したり、現在起動しているユーザー取得したりすることはできるのでしょうか？

jok 2004-02-16 07:20:10 No: 7153

これでいいのかな

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  nSize:DWORD;
begin
  s := StringOfChar(#0,100);
  nSize := 100;
  GetUserName(PChar(s),nSize);
  Label1.Caption := s;
end;

jok 2004-02-16 07:21:56 No: 7154

こっちのほうがいいか

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  nSize:DWORD;
begin
  s := StringOfChar(#0,100);
  nSize := 100;
  GetUserName(PChar(s),nSize);
  SetLength(s,nSize);
  Label1.Caption := s;
end;

jok 2004-02-16 07:26:38 No: 7155

> すべてのユーザーを取得したり、

こっちは知りません。

るるとん＠Ｋ 2004-02-17 03:47:10 No: 7156

たかみちえsのユニットにそんなのが有ったような気がします

Kashiken 2004-02-18 22:30:44 No: 7157

すみません。インフルエンザで寝込んでまして返信遅れました。
jokさんの方法で取得できました。
jokさん、るるとん＠Ｋさん、ありがとうございました。