Main Menu

[jonsen2.0.0.9]

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;