Code : Tout sélectionner
; - OpenFileRequester()
; - SaveFileRequester()
Global Title$
Procedure FBrowser(Parameter)
Repeat
hwnd = FindWindow_("#32770",Title$)
Until hwnd
Button = FindWindowEx_(hwnd, 0, @"Button", @"Annuler");@"&Ouvrir"
For i=5 To 1 Step -1
SetWindowText_(Button, "&Annuler = "+ Str(i))
Delay(1000)
Next i
Debug button
SendMessage_(Button, #WM_KEYDOWN, #VK_SPACE, 0)
SendMessage_(Button, #WM_KEYUP, #VK_SPACE, 0)
EndProcedure
Thread = CreateThread(@FBrowser(), 0)
Title$ = "Nouveau titre perso..."
File$ = OpenFileRequester(Title$, "Install.log", "", 0)
; File$ = SaveFileRequester(Title$, "", "", 0)
If File$
Debug File$
KillThread(Thread)
EndIf