Hallo nochmal,
luckie ich hab nun deinen code in der praxis (bei meinem dad) ausprobiert. Leider bekomme ich nicht das gewünschte ergebnis.
Folgedes liegt vor:
Eine listbox mit datei pfaden.
Nun will ich die dateipfadeinträge entfernen, zu denen ich keinen
access hab.
Das hab ich mir wie folgt vorgestellt:
Delphi-Quellcode:
for i:=ListBox1.Items.Count-1 downto 0 do
begin
if CheckAccessToFile(GENERIC_WRITE,ListBox1.Items.Strings[i]) = false then
begin
ListBox1.Items.Delete(i);
end;
end;
jedoch wird kein eintrag gelöscht. Dementsprechend bekomme ich auch bei dem versuch eine acces denied datei zu kopieren einen "
Access denied" error.
Nun meine frage, mach ich beim aufrufen deiner funktion irgend nen fehler?
Oder woran kann es dann liegen.
MfG - Ghost007
P.S.:Betriebssystem: Windows NT User: hat adminrechte (es gibt aber ordner, in die nur leute im netzwerk reindürfen, nichtmal der admin darf da rein, diese order müssen aus der obigen listbox entfert werden)