29/03/2024
Windev et les Api Windows
Nb de visiteurs en ligne : 2
>> Introduction <<
>> Codes et Forum <<
>> Download <<
Rubrique
: 1 - Windows Général
Sujet
: Boite de sélection d'un fichier
Auteur
Message
°¨¨ JL ¨¨°
Posté le : 23/06/2000 12:00:00
//Boite de sélection d'un fichier
OPENFILENAME est composé de
lStructSize est un entier long
hwnd1Owner est un entier long
hInstance est un entier long
lpstrFilter est un entier long
lpstrCustomFilter est un entier long
nMaxCustFilter est un entier long
nFilterIndex est un entier long
lpstrFile est un entier long
nMaxFile est un entier long
lpstrFileTitle est un entier long
nMaxFileTitle est un entier long
lpstrInitialDir est un entier long
lpstrTitle est un entier long
Flags1 est un entier long
nFileOffset est un entier
nFileExtension est un entier
lpstrDefExt est un entier long
lCustData est un entier long
lpfnHook est un entier long
lpTemplateName est un entier long
fin
OFN_NODEREFERENCELINKS est un entier long = 0x100000 // pour avoir le lnk
filter est une chaine asciiz de 258="Tous les fichiers (*.*)"+caract(0)+"*.*"+caract(0)+"Fichiers Textes (*.txt)"+caract(0)+"*.txt"+caract(0)+"Fichiers lnk (*.lnk)"+caract(0)+"*.lnk"+caract(0)
sel est une chaine asciiz de 64 = "*.*"
fic est une chaine asciiz de 128
rep est une chaine asciiz de 128="c:windev55\"
OPENFILENAME.lStructSize=dimension(OPENFILENAME)
OPENFILENAME.lpstrFilter=&filter
OPENFILENAME.nMaxFile = 257
OPENFILENAME.Flags1 = OFN_NODEREFERENCELINKS
OPENFILENAME.lpstrFileTitle=&fic
OPENFILENAME.lpstrInitialDir=&rep
OPENFILENAME.lpstrFile=&sel
OPENFILENAME.hwnd1Owner = handle()
si appeldll32("comdlg32","GetOpenFileNameA",&OPENFILENAME) alors
message(sel)
fin