Hallo,
also ich habe folgendes Problem und hoffe ihr könnt mir da helfen:
Ich möchte ein Programm schreiben das automatisch alle .jpg und .jpeg sucht (in dokumente und einstellungen).
Bis hier hin kein Problem aber(!) ich möchte diese automatisch in einem MainMenu haben:
Habe in meinem MainMenu folgenden Bereich: Bilder {Bilder1}
wenn man auf den klickt soll eine liste mit den herausgesuchten bildern erscheinen ich weiss aber nicht wie man die da einträgt und wie man ihnen einen anderen namen gibt, hinter welchem sich alerdings immer noch das verzeichnis befindet damit man dieses dann öffnen oder löschen usw. kann.
Bis jetzt sieht dat so aus:
Delphi-Quellcode:
Procedure FindFiles (aPath, aFindMask:
String; aWithSub: Boolean; aResult: tStrings);
Var
FindRec: tSearchRec;
Begin
// Wenn die Stringliste nil ist oder aPath oder aFind nicht angegeben ist
// dann raus
If (aPath = '
')
or (aFindMask = '
')
or Not Assigned (aResult)
Then
Exit;
// Wenn am Ende der Pfadangabe noch kein \ steht, dieses hinzufügen
// (Oder die Funktion IncludeTrailingPathDelimiter aus der Unit SysUtils.pas verwenden)
If aPath[Length (aPath)] <> '
\'
Then
aPath := aPath + '
\';
// Im aktuellen Verzeichnis nach der Datei suchen
If FindFirst (aPath + aFindMask, faAnyFile, FindRec) = 0
Then
Repeat
If (FindRec.
Name <> '
.')
and (FindRec.
Name <> '
..')
Then
// ...Ergebnis in die Stringlist einfügen
aResult.Add (aPath + FindRec.
Name);
Until FindNext (FindRec) <> 0;
FindClose (FindRec);
// Wenn nicht in Unterverzeichnissen gesucht werden soll dann raus
If Not aWithSub
Then
Exit;
// In Unterverzeichnissen weiter suchen
If FindFirst (aPath + '
*.*', faAnyFile, FindRec) = 0
Then
Repeat
If (FindRec.
Name <> '
.')
and (FindRec.
Name <> '
..')
Then
// Feststellen, ob es sich um ein Verzeichnis handelt
If Boolean (FindRec.Attr
and faDirectory)
Then
// Funktion erneut aufrufen, um Verzeichnis zu durchsuchen (Rekursion)
FindFiles (aPath + FindRec.
Name, aFindMask, aWithSub, aResult);
Until FindNext (FindRec) <> 0;
FindClose (FindRec);
End;
diese suche ist nicht von mir die hab ich rausgesucht....-.-
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
if DirectoryExists('C:\Dokumente und Einstellungen\') then
FindFiles ('C:\Dokumente und Einstellungen\', '*.jpg''*.jpeg', True, MainMenu1.items{hier weiss ich nich genau was da hin muss})
end;