![]() |
pdf wird mit shellexecute nicht angezeigt
Hallo zusammen
Seit kurzem kann ich an meinem PC aus Delphi keine PDF's mehr anschauen. Folgender Code:
Delphi-Quellcode:
An einem anderen PC funzt es einwandfrei. Was könnte die Ursache sein?
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(handle, 'open', 'c:\temp\test.pdf', nil, nil, sw_show); end; end. Danke für Tipps. |
Re: pdf wird mit shellexecute nicht angezeigt
Ist ein PDF-Viewer installiert? Und ist der auch mit dem Dateityp verknüpft?
|
Re: pdf wird mit shellexecute nicht angezeigt
jep adobe acrobat reader 8, bei doppelklick wird die datei angezeigt.
|
Re: pdf wird mit shellexecute nicht angezeigt
Was sagt der Rückgabewert von ShellExecute?
|
Re: pdf wird mit shellexecute nicht angezeigt
sorry, wie finde ich den rückgabewert?
|
Re: pdf wird mit shellexecute nicht angezeigt
Du liest ihn ja noch nicht aus:
Delphi-Quellcode:
<Rückgabe> := ShellExecute(handle, 'open', 'c:\temp\test.pdf', nil, nil, sw_show);
![]() |
Re: pdf wird mit shellexecute nicht angezeigt
der Rückgabewert ist 31.
|
Re: pdf wird mit shellexecute nicht angezeigt
Dann lief was schief, den keine Fehler bedeutet einen Rückgabewert > 32
31 ist SE_ERR_NOASSOC also das die Verknüpfung auf die Endung fehlt. |
Re: pdf wird mit shellexecute nicht angezeigt
Das könnte man ja z.B. mit
![]() |
Re: pdf wird mit shellexecute nicht angezeigt
Liste der Anhänge anzeigen (Anzahl: 1)
Super, vielen Dank für die Antwort!
Es war ganz komisch. Die Windows-Datei Verknüpfung war da, aber die Open-Aktion war nicht definiert. Ich habe diese an einem anderen PC abgeschaut, bei mir eingetragen und es funzt wieder! Vielen Dank! Frage: Wo findet man diese Fehlermeldung: 31 ist SE_ERR_NOASSOC Für diesen "Gratis-Tipp" wäre ich noch dankbar! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz