Ein Windows ShellMenu für eine Datei erscheinen lassen

[blackdrake]

Hallo.

Ich habe eine Listbox, die Dateinamen in den Captions besitzt. (Dateinamen ohne Pfadangaben)

Wenn der Benutzer einen Eintrag doppelklickt, wird die Datei geöffnet (über ShellExecute im OnDblClick)

Was ich jetzt noch realisieren möchte, ist ein Windows Kontextmenü (Öffnen, Umbenennen, Löschen, Eigenschaften etc.) für die jeweils angewählte Datei, wenn der Benutzer mit der rechten Maustaste auf eine Zeile klickt.

Wie realisiert man das?

Delphi-Quellcode:

procedure TMainForm.database_list_mousedown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  tmp: string;
begin
  if (Button = mbRight) and (database_list.SelCount > 0) then
  begin
    tmp := GetDownloadDirectory + database_list.Selected.Caption;
    if FileExists(tmp) then
    begin
      // ToDo: KontextMenue
      // KontextMenue(tmp);
      showmessage(tmp);
    end;
  end;
end;

Vielen Dank.

Gruß
blackdrake