Computernamen des eigenen Rechners ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Im Netzwerk hat jeder Computer einen bestimmten Namen, den man auch in der Netzwerkumgebung sehen kann. Diese Funktion gibt den Computernamen des eigenen Rechners zurück:
function GetComputerName: String;
var
Len: DWORD;
begin
Len:=MAX_COMPUTERNAME_LENGTH+1;
SetLength(Result,Len);
if Windows.GetComputerName(PChar(Result), Len) then
SetLength(Result,Len)
else
RaiseLastOSError;
end;
Die Konstante MAX_COMPUTERNAME_LENGTH steht für die maximale Länge des Computernamen.RaiseLastOSError ist erst ab Delphi 6 verfügbar. Programmierer, die mit älteren Versionen arbeiten müssen an dieser Stelle RaiseLastWin32Error verwenden.
Ähnliche Seiten: