Hi Sergey, your code works fine on my machine. Do you think all users will have the COMMDLG.DLL already installed as part of Windows?
>You can try Common Dialog Control.
oDlg = Createobject("GetFileEx")
>? oDlg.GetFile()
>
>DEFINE CLASS GetFileEx AS form
> Left = 100
> Top = 100
> Name = "GetFIleEx"
> DoCreate = .T.
> Visible = .F.
> cFileSelected = ""
> lUserCancel = .F.
>
> ADD OBJECT oCDC AS OleControl WITH ;
> OleClass = "MsComDlg.CommonDialog"
>
> PROCEDURE oCDC.Init
> This.CancelError = .T.
> ENDPROC
>
> PROCEDURE Error
> LPARAMETERS nError, cMethod, nLine
> IF nError = 1429
> This.lUserCancel = .T.
> ENDIF
> ENDPROC
>
> PROCEDURE GetFile(tnInitColor)
> Thisform.oCDC.ShowOpen()
> IF This.lUserCancel
> This.cFileSelected = ""
> ELSE
> This.cFileSelected = Thisform.oCDC.FileName
> ENDIF
> RETURN This.cFileSelected
> ENDPROC
>ENDDEFINE
>
>
>>Hi,
>>
>>In a very small executable I want to let the user choose an app. Then the app, containing a form, will be executed. The app is chosen with the help of GETFILE(). In that phase I don't want the main vfp-window, so I put SCREEN=OFF in the config.fpw. However, this also prevents the visibility of Getfile().
>>
>>Any other solution?
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.