sry meinte JVCL
also erste methode
Delphi-Quellcode:
function GetComputerWorkgroup: string;
var reg: tregistry;
begin
// Liest die Daten aus der Registrierung
reg := tregistry.create(KEY_READ);
reg.rootkey := HKEY_LOCAL_MACHINE;
reg.openkey('System\CurrentControlSet\Services\VxD\VNETSUP',true);
result := reg.readstring('Workgroup');
end;
leider liegt unter dem pfad 'HKEY_LOCAL_MACHINE\System\CurrentControlSet\Servi ces\VxD\VNETSUP\' kein schlüssel mit dem namen Workgroup, also geht ich mal davon aus das dies vielleicht unter win98 so ist.
und per jvcl ganz simple
label1.caption := jvComputerinfo.workgroup;
cya
HaZe
Edit: ich hatte noch eine methode aber die muss ich erst suchen