Hallo
ich habe da ein Problem. Ich möchte gerne den Recent-Ordner und den Papierkorb von Windows unter Delphi leeren. Ist das möglich und wenn ja wie?
Zweitens möchte ich gerne ein komplettes Verzeichnis samt Inhalt löschen. Ist auch dies unter Delphi möglich?
Thomas
Wie man den Papierkorb leert weis ich leider auch nicht. Für den Recent-Folder kann ich dir nur ne halbe Lösung zeigen:
In diesem Dir sind im Normalfall nur Links auf Dateien, also kleine LNK-Files. Du könntest diese löschen, dann ist der Recent-Folder leer, aber die Dolumente exisiteren noich an ihren original Orten. Welches Verzeichnis den Recent-Folder repräseniert, verrät die Registry im Key
HKEY_USERS.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
Verzeichnisse löschen geht so:
procedure TForm1.Button1Click(Sender: TObject);
var
DirInfo: TSearchRec;
r : Integer;
begin
r := FindFirst(‚C:\Download\Test*.*‘, FaAnyfile, DirInfo);
while r = 0 do begin
if ((DirInfo.Attr and FaDirectory FaDirectory) and
(DirInfo.Attr and FaVolumeId FaVolumeID)) then
if DeleteFile(pChar(‚C:\Download\test‘ + DirInfo.Name))
= false then
ShowMessage(‚Unable to delete : C:\Download\test‘ +
DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
if RemoveDirectory(‚C:\Download\Test‘) = false then ShowMessage(‚Unable to delete direcotry : C:\Download\test‘);
end;