Tipp 3.9 - Start-Ausführen-Dialog

Wie kann ich den Start-Ausführen-Dialog aufrufen?

Mit dieser Funktion können Sie den Start-Ausführen-Dialog aufrufen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: GetDesktopWindow, SHRunDialog

Beispiel:

Option Explicit
 
Public Declare Function GetDesktopWindow _
    Lib "user32" () As Long
Public Declare Function SHRunDialog _
    Lib "shell32.dll" Alias _
    "#61" (ByVal hOwner As Long, _
    ByVal Unknown1 As Long, _
    ByVal Unknown2 As Long, _
    ByVal szTitle As String, _
    ByVal szPrompt As String, _
    ByVal uFlags As Long) As Long  'undokumentiert!
 
Public Function ShowRunDialog() As Long
  '// -----------------------------------------------------
  '// Methode:   | Ruft den Start-Ausführen Dialog auf.
  '// -----------------------------------------------------
  '// Parameter: | entfällt
  '// -----------------------------------------------------
  '// Rückgabe:  | Long-Wert der API-Funktionsrückgabe
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Const SHRD_NO_MRU_STRING As Long = &H2
  ShowRunDialog = _
      SHRunDialog(GetDesktopWindow(), _
      0, _
      0, _
      vbNullString, _
      vbNullString, _
      SHRD_NO_MRU_STRING)
End Function


Zurück Tipp 3.8 - Öffnen-mit-Dialog | Inhalt | Tipp 3.10 - Betriebssystemdialoge Weiter