29/03/2024
Windev et les Api WindowsNb 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