Einzelnen Beitrag anzeigen

Ati

Registriert seit: 16. Okt 2003
Ort: Gelsenkirchen
406 Beiträge
 
Delphi 3 Professional
 
#5

Re: Domäne auslesen unter Windows98

  Alt 23. Jan 2006, 15:04
So das mit dem Auslesen der Domäne unter W98 habe ich wie folgt gelöst:
Delphi-Quellcode:
function GetComputerWorkgroup: string;
var reg: TNtregistry;
begin
     reg := TNtregistry.create;
     reg.rootkey := HKEY_LOCAL_MACHINE;
     reg.openkey('System\CurrentControlSet\Services\VxD\VNETSUP',true);
     result := reg.readstring('Workgroup');
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(getComputerWorkgroup);

end;
Nur das mit dem dynamischen Einbinden habe ich zwar theoretisch verstanden nur die praktische Umsetzung klappt noch nicht.

Ati
Ich weiß das ich nichts weiß

Sokrates
  Mit Zitat antworten Zitat