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!

zusammenfalten · markieren

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;

Netzlaufwerk finden

Netzlaufwerk finden

Forumregeln