Forum: Win32/Win64 API (native code)
Delphi
by scrat1979,
6. Jul 2007
Das freut mich (vorerst) mal :-)
Gib aber bescheid, interessiert mich natürlich auch. So long... :thumb:
SCRaT
Forum: Win32/Win64 API (native code)
Delphi
by scrat1979,
6. Jul 2007
Okay, jetzt habe ich das Problem verstanden. Hast es auch schon weiter oben geschrieben - Sorry, muss ich überlesen haben...
Und wie sieht es mit meinem letzten Post aus? Geht auch nicht? :zwinker:
SCRaT
Forum: Win32/Win64 API (native code)
Delphi
by scrat1979,
6. Jul 2007
Habe es auch so gelesen, daß es damit funktioniert hat?!? :gruebel:
An sonsten ändere meine Funktion etwas ab:
Function FileAccessable(Dateiname : String) : Boolean;
var
TestDatei : TFileStream;
Begin
Result := False;
Forum: Win32/Win64 API (native code)
Delphi
by scrat1979,
5. Jul 2007
Hmmm, hätte nur noch einen Lösungsvorschlag. Vor dem Kopieren der Datei kann damit geprüft werden, ob in das Zielverzeichnis geschrieben werden kann. Vielleicht hilft es Dir ja :thumb:
Function DirWritable(DestDir : String) : Boolean;
var
TestDatei : TFileStream;
Begin
DestDir := IncludeTrailingPathDelimiter(DestDir); // '\' am Ende des Pfades sicherstellen...
Result := False;
...
Forum: Win32/Win64 API (native code)
Delphi
by scrat1979,
4. Jul 2007
Hmmm, ich glaub ich bin mit meiner Antwort im falschen Thread gelandet - Sorry.
SCRaT
Forum: Win32/Win64 API (native code)
Delphi
by scrat1979,
4. Jul 2007
Hallo!
Versuche mal Deine Schleife ohne den Check (also einfach nur LIstbox1.Items.Delete(i). Sie sollte die Einträge der Listbox1 komplett löschen - der Code sieht korrekt aus.
Wenn es funktioniert muss es irgend etwas mit der Funktion an sich zu tun haben. Das Löschen der Listbox-Einträge ist sicherlich NICHT von den Zugriffsrechten abhängig, solange Du auf die eigentlichen Dateien nicht...