Hi,
hab folgendes Problem:
Ich lade per TOpenDialog eine Datei woraufhin sich ein 2tes Formular öffnet, in der man einen Namen für die Datei angeben kann - der name wird in die ListBox eingefügt.
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
begin
Form2.ListBox1.MultiSelect :=False; //Mehrfach Auswahl ist nich möglich
Form2.ListBox1.Sorted :=True; //Sortiert die Einträge
openDialog.Free;
//Schließt das "Datei Öffnen" Fenster
begin
Form2.ListBox1.Items.Add (Edit1.Text); //Fügt die ausgewählte Datei in die Listbox ein
Form4.Close; //Schließt das Fenster
end;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
Form4.Close;
end;
procedure TForm4.FormShow(Sender: TObject);
begin
Form2.Listbox1.Update;
Form2.ListBox1.ItemIndex :=0;
Label2.Caption := openDialog.FileName;
end;
und per klick auf einen button will ich dieses programm ausführen:
Das klappt so nicht, weil der anstatt dem pfad der eigentlichen datei,der Listbox eintrag gestartet wird.
Delphi-Quellcode:
procedure TForm2.N8Click(Sender: TObject);
var
Err: Integer;
begin
Err:= ShellExecute(0,
Nil,
PChar(ListBox.Items[ListBox.ItemIndex]),
Pchar('-Parameter'),
Pchar('C:\StartDir'),
SW_NORMAL);
if Err <= 32 then
end;
kann man irgendwie eine datei, zb. C:\programm.exe mit einem alias versehen oder mit dem inhalt der Editbox verknüpfen, was in der Listbox angezeigt wird?
Ich hoffe ihr versteht was ich meine.
danke schonmal im vorraus.