Ich verscuhe so zu Prüfen, ob auf die Freigane zugegriffen werden kann:
Delphi-Quellcode:
procedure TConnection.CheckConnetion;
var
NetResource : TNetResource;
err : DWORD;
Dummy : THandle;
begin
ZeroMemory(@NetResource, sizeof(TNetResource));
NetResource.dwType := RESOURCETYPE_DISK;
NetResource.lpRemoteName := PChar(FUNCPath);
err := WNetOpenEnum(RESOURCE_CONNECTED, RESOURCETYPE_DISK, RESOURCEUSAGE_CONNECTABLE, @NetResource, Dummy);
if err <> NO_ERROR then
begin
FConnected := False;
if Assigned(OnError) then
FOnError(self, err, SysErrorMessage(err));
end;
end;
Nur leider bekomme ich immer den Fehler "Falscher parameter", egal ob ich verbunden bin oder nicht.
Ich habe schon im Forum gesucht, aber eigentlich unterscheidet sich mein Code nicht von dem hier in der
DP.
