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



■必要なコンポーネント

■使用するAPI関数

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

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

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

end;




Win32APIのページへ



ホーム PV ランキング