Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Moin !
  
  So nun schaut das schon etwas universeller und läuft ohne Fehler :hi:
  
  Procedure ReadAllFilesInDir(mask: string; Var Liste : TStringList;
  readFolder, readFiles : Boolean);
  var sr : TSearchRec;
  directory : string;
  begin
  directory := ExtractFilePath(mask);
• Forum: Sonstige Fragen zu Delphi

  Re: Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Moin !
  
  Ich muss zu meiner Schande gestehen das die Funktion nicht von mir ist. Insofern kann ich die Fragen warum dies und das so und so gelöst wurde nicht beantworten :wink:
  Mit dem FindClose funktioniert die Sache nun aber schon mal Fehlerfrei :thumb:
  
  Werde dann mal die Funktion etwas umschreiben .... 8)
  
  Soweit aber erstmal vielen Dank für die Hilfe !!
• Forum: Sonstige Fragen zu Delphi

  Re: Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Moin !
  
  Ich bin einen Schritt weiter.
  Bevor ich die Verzeichnisse Lösche, lösche ich die darin befindlichen Shortcuts.
  Dafür erzeuge ich eine Liste mit allen *.LNK Files.
  
  Der Code schaut so:
  FileList := TStringList.Create;
  ReadAllFilesInDir(GetSpecialFolder(handle, DirCSIDL) + '\' + AppName + '\*.lnk', FileList);
• Forum: Sonstige Fragen zu Delphi

  Re: Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Moin !
  
  Ich habe schon versucht mittels SetCurrentDir das Verzeichnis umzusetzen auf den normalen Anwendungspfad unter C:\Programme\...
  Hat aber auch nix genutzt.
  
  Und wenn ich mit GetCurrentDir eine Abfrage mache wo ich stehe wenn ich den Ordner löschen will, dann stehe ich irgendwo unter
  C:\Dokumente und Einstellungen\Administrator\Eigene Dateien
  Also nicht in dem Verzeichnis was ich...
• Forum: Sonstige Fragen zu Delphi

  Re: Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Moin !
  
  In FileList steht der ganze Pfad also z.B.
  C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\LogView V2 Test\Binary\PortmonXP
  
  Einen Wechsel mache ich nicht. Mein Verzeichnis löschen schaut so aus:
  for j := FileList.Count -1 downto 0 do begin
  if IsFolderEmpty(FileList) then begin
  Log('Löschen leeres Verzeichnis : ' + FileList, ClMaroon, True);
• Forum: Sonstige Fragen zu Delphi

  Re: Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Moin Luckie,
  
  ich lösche ganz normal über:
  DeleteFile(FileList);
  
  Vorher prüfe ich noch ob ggf. ein Schreibschutz vorhanden ist und entferne den.
  
  Muss ich das anders machen !?
• Forum: Sonstige Fragen zu Delphi

  Re: Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Nachtrag:
  Habe jetzt mal mit dem Process Explorer geschaut wer ein Handle auf den Ordner hat.
  Das ist nur meine Anwendung. Sonst nüscht.
  
  Ich blicks langsam nicht mehr :pale:
• Forum: Sonstige Fragen zu Delphi

  Re: Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Moin !
  
  Tja ich habe jetzt mal 10 Sekunden gewartet und zusätzlich mittels SHFileOperation gelöscht:
  function ShellDelete(const fsoName: string): Integer;
  var
  sh: SHFileOpStruct;
  iResult: Integer;
  begin
  ZeroMemory(@sh, sizeof(sh));
  with sh do
• Forum: Sonstige Fragen zu Delphi

  Re: Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Moin !
  
  Ne auch mit abgeschaltetem Virenscanner gehts ned.
• Forum: Sonstige Fragen zu Delphi

  Verzeichnis im Startmenü löschen

    Delphi
    by moelski, 7. Jul 2009
  Moin !
  
  Irgendwie stehe ich gerade aufm Schlauch ... Und zwar versuche ich im Startmenü unter "All Users" einen Ordner zu löschen.
  
  Der Ordner enthält einen Link. Diesen Link kann ich löschen. Der Ordner ist also def. leer.
  Anschließend versuche ich dann mit RemoveDir den Ordner zu löschen. Dort bekomme ich aber immer diesen Fehler (GetLastError):
  Der Prozess kann nicht auf die Datei...