本文整理自网络,侵删。
function GetComputerNetName: string;var buffer: array [0 .. 255] of char; size: dword;begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := ''end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>