Danke für die Antwort
Auf jedenfall hat es anfangs noch nicht funktioniert.
Aber ich hab aus dem 'Memo1.Text' einfach 'Edit1.Text' gemacht und dann hat es auch funktioniert. Bloß ist das alles noch ein bisschen durcheinander und muss noch ausgebessert werden, aber das wichtigste funktioniert
Außer das mit der Fehlermeldung klappt noch nicht ganz, also wenn die Datei nicht existiert :/ Da zeigt er an: (siehe Anhang)
Aber danke sx2008 für deine Hilfe
Hier der nochmal der Code:
Delphi-Quellcode:
function TForm1.OpenURL(
const url:
string): Boolean;
begin
Result := ShellExecute(0, '
open', PChar(
url),
nil,
nil, SW_SHOW) > 32;
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
var filename:
string;
begin
Ini:=TIniFile.Create('
ListBoxItems\ListBoxItems.ini');
ini.ReadSection('
ListboxItems',Memo1.Lines);
filename := (ExtractFilePath(ParamStr(0)) + ChangeFileExt('
Html\' + Edit1.Text, '
.url'));
case (ListBox1.ItemIndex)
of
0:
begin OpenURL(filename);
if not FileExists(filename)
then
raise Exception.CreateFmt('
Datei %d existiert nicht', [filename]);
end;
1:
begin OpenURL(filename);
if not FileExists(filename)
then
raise Exception.CreateFmt('
Datei %d existiert nicht', [filename]);
end;
end;
end;
Dann die Function in private einfügen:
Delphi-Quellcode:
private
function OpenURL(
const url:
string): Boolean;
{ Private declarations }
Mfg
McRobins