Drucken mit ShellExecute unter Win7

[citybreaker]

Hallo,

mit ShellExecute möchte ich eine Html Datei ausdrucken. Unter Windows XP funktioniert das ganze einwandfrei. Ich drücke auf meinen Button es erscheint ein Drucken Dialog (ich glaube vom IE) und die Datei wird gedruckt.

Ganz anders hingegen verhält sich das ganze unter Windows 7. Ich drücke wie gewohnt den Drucken Button nur mit dem unterschied, dass jetzt einfach gar nichts passiert.

ShellExecute(handle, 'print', PChar(ExtractFilePath(Application.Exename) + 'printme.html'), nil, nil, SW_HIDE);

Weiß jemand woran das liegen kann? Gibt es event. eine bessere/weitere möglichkeit Html Datein zu drucken? Ich würde nur ungern auf den TWebBrowser oder ähnliches zurückgreifen.

[Luckie]

Ist dein eine Anwendung mit der Dateiendung html und dem Verb "print" verknüpft?

[citybreaker]

Weiß nicht? Kann ich das irgendwo nach sehen?

[himitsu]

Das "Print" muß für diesen Dateityp auch registriert sein.

Gibt es im Explorer, im Contextmenü, Print/Drucken und funktioniert das?

HKEY_CLASSES_ROOT\.html
> Standardwert = nächster Link (bei mir "(Standard)" = "FirefoxHTML")

HKEY_CLASSES_ROOT\FirefoxHTML\shell\print\...
Und das gibt es nicht, also woher soll ShellExecute dann wissen wie und mit welchem Programm gedruckt wird.

[DeddyH]

ShellExecute ist eine Funktion und gibt im ggf. auch einen Fehlercode zurück, der gibt dann Aufschluss über die Ursache

[citybreaker]

Da fehlte Tatsächlich der Eintrag "print" und "command" be FirefoxHtml. Das heißt ich müsste
die Datenbank erstmal vor dem Drucken prüfen lassen, ob der entsprechende Eintrag vorhanden ist und dann
event. diesen einfügen?


Was genau ist denn bei euch bei Command eingetragen? (HKEY_CLASSES_ROOT\FirefoxHTML\shell\print\command )

-- Edit --
Ist da mit dem FirefoxHTML auch gültig wenn Firefox gar nicht installiert ist?

[DeddyH]

Bei mir gibt es nur den "open"-Schlüssel. Mit dem Eintragen könnte es aber unter Umständen schwierig werden, sofern Dein Programm nicht ohnehin mit Adminrechten läuft. Eine Schnellsuche meinerseits, ob es evtl. einen passenden Kommandozeilenparameter für Firefox (so in der Art "firefox.exe -p Dingens.html") gibt, war leider nicht von Erfolg gekrönt.

[pmoegenb]

Zitat von citybreaker:

ShellExecute(handle, 'print', PChar(ExtractFilePath(Application.Exename) + 'printme.html'), nil, nil, SW_HIDE); Weiß jemand woran das liegen kann? Gibt es event. eine bessere/weitere möglichkeit Html Datein zu drucken? Ich würde nur ungern auf den TWebBrowser oder ähnliches zurückgreifen.

Vielleicht so ?
ShellExecute(handle, 'print', PChar(ExtractFilePath(Application.Exename) + '\printme.html'), nil, nil, SW_HIDE);

[DeddyH]

Wo ist da jetzt der große Unterschied, vom doppelten Backslash bei Deinem Vorschlag abgesehen? Das Problem ist ja, dass mit der Dateiendung keine Anwendung zum Druck verknüpft ist.

[citybreaker]

Ich habe mal auf dem Rechner nach geguckt auf dem XP installiert ist. Da steht bei Command der Pfad zu einer Exe im Office Ordner. Das kann ich so nicht übernehmen,
da ich kein Office auf dem Win7 Rechner installiert habe. Scheint als müsste ich noch eine andere möglichkeit finden.

Kann man die Html Datei irgendwie über Canvas drucken? Wenn alle stricke reißen werde ich wohl doch den TWebBrowser nehmen. MS Internet Explorer sollte ja auf jedem
Windows Rechner installiert sein?!