At udføre et program så det kører som opsætningen er i windows er meget nemt.
Procedure ExecApp(Filename, Parameters: String);
Begin
ShellExecute(Application.Handle, nil, PChar(Filename), PChar(Parameters), Pchar(Extractfilepath(Filename)), SW_SHOWNORMAL);
End;
Jeg er ikke helt inde i hvordan filelistbox'en fungere da jeg fandt den alt for langsom til mit brug. Men den benytter jo TListview som grund component og derfor skulle følgende.
Procedure Run;
Begin
// Først skal vi være sikker på at den ikke er tom da det vil give en Access violation
If FileListbox.Selected = nil then exit;
ExecApp(FileListbox.Selected.Caption);
// Caption skal nok udskiftes til noget der også indeholder folderen - Kig evt. i hjælpen
End;
Aaangel