コンピュータ名を取得する



■必要なコンポーネント

■使用するAPI関数

■ソースは下記のようになります。

コンピュータ名を取得する処理
procedure TForm1.Button1Click(Sender: TObject);
Var
 //バッファを確保
 ComputerName : array [0..256] of char;
 Length :Integer;

begin

 //コンピュータ名を取得
 GetComputerName(ComputerName, Length);
 ShowMessage(ComputerName);


end;




Win32APIのページへ



ホーム PV ランキング