Název počítače

Klíčová slova:
Rubrika: Delphi

Následující funkce vám pomůže zjistit jméno počítače na kterém pro program spuštěn.

function TForm1.Get_ComputerName : string;
const
cnMaxLen=254;
var
sCompName : string;
dwCompNameLen : DWord;
begin
Result := '';
dwCompNameLen:=cnMaxLen-1;
SetLength(sCompName, cnMaxLen);
GetComputerName(Pchar(sCompName), dwCompNameLen);
SetLength(sCompName, dwCompNameLen);
Result:=sCompName;
if dwCompNameLen=cnMaxLen-1 then Result := '';
end;

Autor: Jiří Provazník
Datum vydání: 06.03.2003 | Zobrazeno: 4443
Permanentní odkaz: Název počítače

Komentáře (0)