ユーザー名とPC名を正常に取得するには? (ID:21337)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ユーザー名とコンピューター名を取得しようと思い、次のようなソースコードを書きました。 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);」この処理を実行しなければ正常に表示されるのですが・・・。どこか間違っているのでしょうか?アドバイス頂ければ幸いです。