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

解決

Kashiken  2004-02-15 21:31:20  No: 7152  IP: 192.*.*.*

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

編集 削除
jok  2004-02-15 22:20:10  No: 7153  IP: 192.*.*.*

これでいいのかな

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-15 22:21:56  No: 7154  IP: 192.*.*.*

こっちのほうがいいか

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-15 22:26:38  No: 7155  IP: 192.*.*.*

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

こっちは知りません。

編集 削除
るるとん＠Ｋ  2004-02-16 18:47:10  No: 7156  IP: 192.*.*.*

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

編集 削除
Kashiken  2004-02-18 13:30:44  No: 7157  IP: 192.*.*.*

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

編集 削除