RunShell

[Muecke]

Hallo,

Gibt es noch eine andere möglichkeit das Programm aufzurufen ohne Runshell ?

Code: Alles auswählen

RunShell( '"c:\wasserabrechnung Herr Leuthold.xls"', cPrg , .T. )

gruss Thomas

[Martin Altmann]

Hallo Thomas,
ja - gibt es!

z.B.:

Code: Alles auswählen

ort := "url.dll,FileProtocolHandler " + textpfad + "\" +katalog + "\" + katalog + ".rtf"
RunShell( ort, 'Rundll32.exe' )

oder

Code: Alles auswählen

ort := textpfad + "\" +katalog + "\" + katalog + ".rtf"
RUN START &ort

oder

Code: Alles auswählen

DLLFUNCTION ShellExecuteA( nHWND, cOperation, cFile, cParms, cDirectory, nOpenMode  ) USING OSAPI FROM SHELL32.DLL
ort := textpfad + "\" +katalog + "\" + katalog + ".rtf"
ShellExecuteA( AppDesktop():GetHWND(), "open", ort, "", CurDir(), SW_NORMAL )

Viele Grüße,
Martin

[Manfred]

Boh, bist Du gemein....

Jetzt erst recht. Schnell was hinterherschreiben und ich stehe auch noch als Depp da..... ,weil keiner weiß warum ich es geschrieben habe.....

[Tom]

@Thomas: Schau Dir mal die Active-X-Samples der 1.9 an. Instanzen von Ecxel als AX-Komponente (auch in Xbase-Dialoge eingebettet) zu erzeugen und Dateien darin zu öffnen ist sehr simpel.

[Martin Altmann]

Hallo Manfred,

Boh, bist Du gemein....

konnte ich mir nicht verkneifen
Er hatte ja nicht nach dem "Wie" gefragt...
Aber ich habe dann doch noch ein wenig was nachgetragen - bin halt doch ab und an nachtragend

Viele Grüße,
Martin

[Muecke]

Hallo Martin,

werde die DLLFUNCTION mal testen.Das ist das was ich suchte.

@Tom. Ja das stimmt, aber wenn ich pdf oder bmp.... Files habe muss ich ja zuerst das Programm wieder suchen. So wie ich dies versteh, kann ich direkt das Files öffnen mit der DLLFUNKTION.

Gruss Thomas

[Martin Altmann]

Hallo Thomas,
das kannst Du - vorausgesetzt, Dein Windows kennt ein Programm für das entsprechende Format...
Ist dafür bei Dir kein Standardprogramm definiert, geht es nicht.

Viele Grüße,
Martin

[Tom]

@Martin: Eben! Es kann durchaus sein, daß jemand irgendein PDF-Bearbeitungstool als Standard für die Extension .PDF eingestellt hat, und dann ist man Nese mit RunShell oder RunDLL.

@Thomas: Du mußt von den Active-X-Komponenten nur die CLSIDs (bei Acrobat wechseln sie, oder haben das bis zur Version 7 getan) wissen - und abfragen, ob sie installiert sind (was unproblematisch ist). Dann aber hast Du die volle Kontrolle. Ist durchaus eleganter.

[Muecke]

Hallo Tom,

Danke,werde dies auch nocht testen.

Gruss Thomas

[Muecke]

Hallo Tom,

mein Programm um das File zu öffnen

Code: Alles auswählen

C:\Programme\Microsoft Office\OFFICE11\EXCEL.EXE" 

aber wie soll ich jetzt das dazugehörende CLSID finden.

Hab mal mit GetObject und CreateObject versucht, funkt aber nicht.

Gibt es da eine Funktion, wie man im HKEY_CLASSES_ROOT den schlüssel auslesen kann???

Gruss Thomas

[Tom]

Hallo, Thomas.

Die CLSIDs der installierten Active-X-Komponenten findet man mit einem Tool wie OLEVIEW32 relativ fix.

Aber bei Excel ist es einfacher:

Code: Alles auswählen

#PRAGMA LIBRARY( "ASCOM10.LIB" )

oApplication := CreateObject("Excel.Application")
oApplication:Visible:=.T.
oBook := oApplication:Workbooks:Open(cMyExcelFile)

Schau Dir einfach mal die Beispiele in ..\Samples\Activex\Msexcel an!

[Muecke]

Hallo Tom

diesen Aufruf mach ich auch bereits

Code: Alles auswählen

oApplication := CreateObject("Excel.Application") 

aber mein Problem ist, wenn ich mails bekomme und die einen Anhang haben mit verschiedenen Files, so muss ich ja zuerst schauen, ist ein Prg auf Pc vorhanden und danach das Programm des Files starten.

Wenn ich jetzt weiss, dass ein Programm vorhanden ist, kann ich dan irgend wie die CLSIDs abfragen.
Ich brauch ja für ein bmp ein anderes Progamm als für eine xls.

Darum hab ich dies bis jetzt mit Runshell gemacht.

Das ist eigentlich mein Problem, was ich zu lösen versuche.

Gruss Thomas

[Tom]

Hallo, Thomas.

Wie gesagt, die CLSIDs (die sich international gleichen) findest Du mit OLEVIEW32 oder ähnlichen Tools heraus. Ob die Komponenten installiert sind, kann man dann leichterdings feststellen, indem man in der Registry (HKEY_CLASSES_ROOT) nach der jeweiligen CLSID sucht. Das macht man über die Windows-DLL ADVAPI32 und die eingebetteten Funktionen RegOpenKeyExA() und RegQueryValueExA(). Ich glaube, dafür müßte es Beispiele im Forum oder bei den Alaska-Samples geben. Ich kann Dir meinen Code leider nicht zur Verfügung stellen, weil es nicht meiner ist, da ich DC_RegQuery() aus der eXpress++-Bibliothek von Roger Donnay nutze.

[brandelh]

Hallo Thomas,

wenn du das Standardprogramm für eine bestimmte Datei verwenden willst, das der Anwender dafür auf seinem PC festgelegt hat, dann ist ActiveX nicht der richtige Weg - und zudem oft sehr langsam.

Martin hat weiter oben folgenden Befehl vorgeschlagen:

Code: Alles auswählen

DLLFUNCTION ShellExecuteA( nHWND, cOperation, cFile, cParms, cDirectory, nOpenMode  ) USING OSAPI FROM SHELL32.DLL 
ort := textpfad + "\" +katalog + "\" + katalog + ".rtf" 
ShellExecuteA( AppDesktop():GetHWND(), "open", ort, "", CurDir(), SW_NORMAL ) 

wenn du in SUCHEN nach ShellExecuteA suchst, wirst du gut 3 Threads zu dem Thema im Vergleich zu RunShell finden. Gerade bei BMP bleibt dir gar nichts anderes übrig, da - soweit ich weiß - Paint kein ActiveX Server ist.

Außerdem sollte man ja als Programmierer sich an die Vorauswahl des Standardprogrammes halten.

[Muecke]

Hubert,

Hab diesen Code von Martin bereits in funktion und läuft sehr gut.

wo find ich das?

Code: Alles auswählen

wenn du in SUCHEN nach ShellExecuteA suchst

möcht ja dies auch verstehen was da alles abgeht und nicht nur verwenden!!!!

Gruss Thomas

[brandelh]

Hi,

ich meine damit die SUCHEN-Funktion von diesem Forum, sieh mal unter das Foto vom IdXF++ Eisbären:

Profil Private Nachrichten FAQ Mitgliederliste Suchen ...

dort kann man dann z.B. diesen Suchbegriff eingeben und er zeigt alle Threads an in denen dieser Befehl vorkommt. LEWI hat in einem sehr ausführlich diese API Shell Funktion erläutert.

[Muecke]

Super, besten Dank für die Hilfe.

Gruss Thomas