Thema: Delphi Existiert eine Domäne?

Einzelnen Beitrag anzeigen

gargano

Registriert seit: 2. Okt 2006
76 Beiträge
 
Delphi 2007 Enterprise
 
#3

Re: Existiert eine Domäne?

  Alt 24. Jul 2007, 12:42
Geht mit NetGetDCName: Wenn Result=0, dann existiert die Domain.

Delphi-Quellcode:
var
   TheDomain:Array[0..255] Of WideChar;
   domain:PWideChar;
begin
     StringToWideChar(DomainNameEdit.text,@TheDomain,255);
     Result:=NetGetDCName(nil,@TheDomain,pointer(Domain));
end;
Gruß
gargano

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]
  Mit Zitat antworten Zitat