hallo erstmal
also mein Problem besteht darin, dass ich eine TDirectoryListBox habe und die dort beinhaltenden .exe Dateien in eine TFileListBox anzeige. Soweit alles klar, aber nun möchte ich dass je nachdem welche .exe per Doppelklick ausgewählt wird diese dann auch gestartet wird.
Hier mein erster Versuch (klappt leider nicht):
Zitat
procedure TForm2.starten(Sender: TObject);
var i : string;
begin
i := TFileListBox .FileName;
if pos('.exe', TFileListBox .FileName) <> 0 then
begin
ShellExecute(Handle, nil, i+'.exe', '/n,/e,',
PChar(Auswahl), SW_NORMAL);
end
else
ShowMessage('Dies ist keine gültige ".exe"!');
end;
Ich hoffe dass mir jmd. dabei helfen kann..
mfg Hering
