ユーザー名とPC名を正常に取得するには?

解決

猫 2006-05-05 09:27:56 No: 21337

ユーザー名とコンピューター名を取得しようと思い、次のようなソースコードを書きました。

procedure TForm1.Button1Click(Sender: TObject);
var

UserName:PChar;

PCName:PChar;

d:DWORD;

begin

d:=128;

//メモリ確保
GetMem(UserName,D);

GetMem(PCName,D);

//取得
GetUserName(UserName,D);

GetComputerName(PCName,D);

//表示
ShowMessage(Username+':'+PCName);

//メモリ開放
FreeMem(UserName);

FreeMem(PCName);

end;

ですが、コンピューター名が正常に表示されません。
「GetUserName(UserName,D);」この処理を実行しなければ正常に表示されるのですが・・・。どこか間違っているのでしょうか?アドバイス頂ければ幸いです。

ネコ 2006-05-05 12:51:59 No: 21338

自己解決しました