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;