API-Funktion für Öffnen Dialog

[Sonic83]

Hallo!

Ich bräuchte die API-Funktion, bei der der Öffnen Dialog aufgeht, d. h. der Dialog bei dem man eine Datei am ende auswählen muss. Bis jetzt hab ich nur die API-Funktion gefunden, bei der Man den ganzen Ordner auswählen kann (SHBrowseForFolder)

Gruß Sonic83

[Mister A]

die Funktion heißt "GetOpenFileName"

hier ein Beispiel für VB (falls des deine Sprache ist.. )

ausm API-Guide den man unter www.allapi.net sich downloaden kann! Da sind dann api's für alle Lebenslagen drin!

so hier das beispiel...

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME

lStructSize As Long

hwndOwner As Long

hInstance As Long

lpstrFilter As String

lpstrCustomFilter As String

nMaxCustFilter As Long

nFilterIndex As Long

lpstrFile As String

nMaxFile As Long

lpstrFileTitle As String

nMaxFileTitle As Long

lpstrInitialDir As String

lpstrTitle As String

flags As Long

nFileOffset As Integer

nFileExtension As Integer

lpstrDefExt As String

lCustData As Long

lpfnHook As Long

lpTemplateName As String

End Type

Private Sub Form_Load()

'KPD-Team 1998

'URL: http://www.allapi.net/

'E-Mail: KPDTeam@Allapi.net

Dim OFName As OPENFILENAME

OFName.lStructSize = Len(OFName)

'Set the parent window

OFName.hwndOwner = Me.hWnd

'Set the application's instance

OFName.hInstance = App.hInstance

'Select a filter

OFName.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)

'create a buffer for the file

OFName.lpstrFile = Space$(254)

'set the maximum length of a returned file

OFName.nMaxFile = 255

'Create a buffer for the file title

OFName.lpstrFileTitle = Space$(254)

'Set the maximum length of a returned file title

OFName.nMaxFileTitle = 255

'Set the initial directory

OFName.lpstrInitialDir = "C:\"

'Set the title

OFName.lpstrTitle = "Open File - KPD-Team 1998"

'No flags

OFName.flags = 0

'Show the 'Open File'-dialog

If GetOpenFileName(OFName) Then

MsgBox "File to Open: " + Trim$(OFName.lpstrFile)

Else

MsgBox "Cancel was pressed"

End If

End Sub

<FONT COLOR="#a62a2a" SIZE="1">[ 10. Dezember 2001 14:28: Beitrag 1 mal editiert, zuletzt von Mister A ]</font>