Windows Dialog "Datei öffnen mit"

[Holger_69]

Hallo zusammen,

für eine Dokumentenverwaltung ( beliebige Datei-Extensions ) sollen die gespeicherten Dokumente über die verknüpfte Anwendung auch eingesehen / bearbeitet werden können.

Mit "ShellExecute" funktioniert das auch ganz gut, Probleme treten aber auf wenn die Extension nicht bekannt ist, in dem Fall bekomme ich nur eine Exception.

Nun ist aber gefordert daß der Windows-Dialog "Öffnen mit" erscheinen soll, da der Kunde eigene Extensions benutzt...

Kann mir jemand sagen wie ich bei Auftreten der Exception diesen Dialog aufrufen kann? (Syntax )

Danke für jede Hilfe

Holger Rogge

[Ulrich Gerhardt]

Vielleicht hilft dir folgender Schnipsel von http://www.freevbcode.com/ShowCode.asp?ID=1036:
<pre>
Public Sub DisplayOpenWith(strFile As String)
'***PURPOSE: DISPLAY OPEN WITH DIALOG:
' PASS IT A FILE NAME
' e.g., DisplayOpenWith "C:\FileWithNoDefaultApplication.bvq"
'**************************************
On Error Resume Next
Shell "rundll32.exe shell32.dll, OpenAs_RunDLL " & strFile
End Sub
</pre>
Ist zwar ekliges VB :-), aber lässt sich sicher übertragen.
<p>HTH, Uli

[Holger_69]

Hallo Ulrich,

danke für den Tip der war genau richtig!

und so gehts in Pascal:

ShellExecute( 0, 'open', 'rundll32.exe',
PChar( Format( 'shell32.dll,OpenAs_RunDLL %s', [ FileName ] ) ), nil, SW_SHOW );

MfG

Holger Rogg