コンピュータＩＤを取得するには？

解決

どしろうと 2007-06-21 18:03:26 No: 26790 IP: 192.*.*.*

クライアントＰＣのコンピュータＩＤ（端末ＩＤ）をdelphiで取得することは可能でしょうか。可能な場合、ご教示願えませんでしょうか。

GTR 2007-06-21 18:20:27 No: 26791 IP: 192.*.*.*

var
   lpbuffer: PChar;
   nsize: DWORD;
   ComputerName : String;
begin
   // コンピュータ名のための領域確保
   nsize := 255;
   GetMem(lpbuffer, nsize + 1);
   try
     // コンピュータ名の取得
     if Windows.GetComputerName(lpbuffer, nsize) then
     ComputerName := lpbuffer;
   finally
     // コンピュータ名のための領域破棄
     FreeMem(lpbuffer);
   end;
end;

で、どうでしょうか？

編集削除

ＧＴＲ 2007-06-21 18:22:46 No: 26792 IP: 192.*.*.*

先程の発言は自分のコンピュータ名でした。
間違えて済みません。

編集削除

どしろうと 2007-06-21 18:47:22 No: 26793 IP: 192.*.*.*

ありがとうございました。出来ました！

編集削除