Diese Funktion ermittelt den Computernamen und gibt ihn zurück.
Delphi-Quellcode:
function FComputername: String;
var
CompName: Array [0 .. 256] of char;
size: DWORD;
begin
size := 256;
GetComputerName(Compname, size);
Result := CompName;
end;
[edit=Matze]Code formatiert. Mfg, Matze[/edit]