Fehler mit ShellExecute

[Delphi.Narium]

Dashier verstehe ich nicht: if ExtractFileExt(ATextSelection) = AnsiLowerCase('.pdf') then .pdf ist doch schon in Kleinbuchstaben, warum wird es in Kleinbuchstaben umgewandelt? Wenn in ATextSelection die Dateiendung .PDF ist, hat das genau keine Wirkung.
Müsste es nicht eher if AnsiLowerCase(ExtractFileExt(ATextSelection)) = '.pdf' then heißen?

Oder eventuell if AnsiSameText(ExtractFileExt(ATextSelection),'.pdf') then ?

Open heißt: Starte die Datei im damit verknüpften Programm. Und genau das geschieht. ShellExecute weiß nichts davon, dass Du einen Frame hast, in dem die Anzeige erfolgen soll.

Wenn Du SumatraPDF zur Anzeige der PDF-Dateien nutzen könntest / möchtest ... wäre dashier eventuell eine Option:

ShellExecute(0, 'open', 'SumatraPDF.exe', PChar(Format('-plugin %d "%s"',[FrameHandle,PDFFilePath])), nil, SW_SHOW);