Also ich habe ein komisches Problem und komme einfach nicht darauf, wieso dies nicht funktioniert.
Ich habe eine Listbox bei der über den Doppelklick auf einen Eintrag sich dieser als PPT-Datei öffnet:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TLieder.LBLiederDblClick(Sender: TObject);
var
i: Integer;
Pfad : String;
begin
for i := 0 to LBLieder.Items.Count -1 do
begin
if LBLieder.Selected[i] then
Pfad := 'PP-Lieder/' + LBLieder.Items.Strings[i] + '.ppt';
end;
ShellExecute(Handle, 'open', PChar(Pfad), nil, nil, sw_Show);
end; |
In einer ComboBox habe ich alle zur Auswahl stehenden Einträge und man kann diese durch einen button in die Listbox eintragen:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TLieder.Button1Click(Sender: TObject);
begin
LBLieder.Items.Add(CBLieder.Text);
end; |
Dies funktioniert auch ohne Probleme und die PPT-Datei öffnet sich,
ABER:
Wenn ich über eine Textdatei die Liste eintragen lasse, dann öffnet sich die PPT-Datei NICHT:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TLieder.Liederliste1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
try
OpenDialog1.Title := 'Liederliste laden';
LBLieder.Items.LoadFromFile(OpenDialog1.FileName);
except
Messagebox(Self.Handle, 'Leider konnte die Datei nicht geöffnet werden.', 'Fehler', MB_OK);
end;
end;
end; |
Das Programm stürtzt dabei auch nicht ab oder gibt einen Fehler aus, es öffnet die Datei einfach nur nicht, so als wäre die Datei in dem Ordner nicht vorhanden. (Dies ist aber nicht so!!)
Hoffe jemand findet den Fehler, wenn ihr dafür noch nen anderen teil des Codes benötigt, einfach schreiben und ich füge ihn hinzu.
MfG
PPaB
