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: 3648
Permanentní odkaz: Název počítače

Komentáře (0)
Přidej vlastní komentář:
Následující (běžně neviditelná) pole slouží pro vnitřní identifikaci systému. Pokud je vyplníte nebude možné váš požadavek na straně serveru zpracovat:
URL:
contents:
Website:
Pro odeslání vašeho komentáře použijte tlačítko "Odeslat". Toto tlačítko nepoužívejte:

Následující položky je vhodné vyplnit:
Jméno :
Email :
Web :
Místo :
Hodnocení:
Hodnocení jako pomocí hvězdiček
1/5= nejhorší, 5/5=nejlepší