Netzlaufwerk finden

[julchen]

Hallo,

ich habe ein Netzlaufwerk z, dass eigentlich immer eingebunden sein sollte. Wird es nachträglich eingebunden, sollte es als z erkannt werden. Ich habe jetzt diesen Code, aber eigentlich müsste ich die Laufwerke nicht vergleichen, sondern irgendwie abzählen, oder?
Weiss nur nicht, wie?
Ich hoffe doch, dass Ihr mir helfen könnt!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
        typ: Integer;
        home: string;
begin
        home := 'z:\';
        typ := GetDriveType(PChar(home));
        if Typ <> 0 then case typ of
        DRIVE_REMOTE:
          begin
            If AnsiStrComp('a:\','z:\') < 0 then Label1.Caption := 'Netzlaufwerk';
            If AnsiStrComp('a:\','z:\') > 0 then Label1.Caption := 'Kein Netzlaufwerk';
          end;
        end;
end;

[Der.Kaktus]

Hallo,
schau mal hier in der DP --> GetDrivetype

[TurboMartin]

Zitat:

Zitat von Der.Kaktus

Hallo,
schau mal hier in der DP --> GetDrivetype

GetDrivetype

Aber es ging ihm um etwas anderes glaub ich, denn es steht schon im Code.

[Der.Kaktus]

@turbomartin ich weiss, aber als Suchmerkmal fuer die Frage ideal :-D