Registriert seit: 27. Nov 2017
2.555 Beiträge
Delphi 7 Professional
|
AW: Fehler mit ShellExecute
21. Feb 2025, 13:48
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);
|