So habe grad mal was gebastelt mir war langweilig.
Als erstes musst du den RAS-API-Header in dein programm per uses einbinden, du findest ihn
Hier
Als nächstes kannst du dann meine hübsche Funktion hier benutzen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| function RASConnectionExists(Conn_Name: string): boolean;
var
Ras_Entries:array[1..10] of trasentryname;
RasEntriesSize: dword;
num_entries,ret: dword;
i:integer;
begin
num_entries:=0;
rasEntriesSize:=sizeof(trasentryname);
ras_Entries[1].dwSize:=rasEntriesSize;
ret:=rasenumentries(nil,nil,@ras_entries,integer(RasEntriesSize),integer(num_entries));
result:=false;
for i:=1 to num_entries do begin
if lowercase(string(ras_Entries[i].szEntryName))=lowercase(Conn_Name) then result:=True;
end;
end; |
Dann z.b. mit
Delphi-Quelltext
1:
| if RASConnectionExists('T-DSL') then showmessage('T-DSL DFÜ Verbindung ist vorhanden.'); |
benutzen.
Müsste eigentlich funktionieren.
gruss,
cirrus
