Dein "filename" ist sicher nicht korrekt, denn wenn man Memo1.Text abruft sind immer
CR/
LF enthalten (ausser das Memofeld wäre leer).
Wenn du prüfst, ob ein Dateiname in Ordnung ist, dann darfst du dich nicht auf dein Gehirn verlassen
(denk an den Tomaten-Auf-Den-Augen-Effekt)
sondern solltest das im Programm überprüfen:
Delphi-Quellcode:
if not FileExists(filename)
then
raise Exception.CreateFmt('
Datei %d existiert nicht', [filename];
Hier erst einmal kleine Hilfsfunktion
Delphi-Quellcode:
function OpenURL(
const url:
string): Boolean;
begin
Result := ShellExecute(0, '
open', PChar(
url),
nil,
nil, SW_SHOW) > 32;
end;
// Beispielaufrufe
OpenURL('
http://www.delphipraxis.net');
OpenURL('
C:\MeineFavoriten\test.url');