I tested this as best I could from your description below, but I don't see the problem. Here is my code:
clear
LOCAL aobj[1], xx as form
DELETE FILE testxx.sc?
CREATE FORM testxx NOWAIT
=ASELOBJ(aobj,1)
xx = aobj[1]
xx.Name = "MyForm"
xx.WindowType = 0
xx.autocenter = .t.
xx.addobject('txt1','textbox')
xx.addobject('cmd1','commandbutton')
xx.cmd1.Top = 30
text to lctext noshow
local nome_form
nome_form = thisform.name
modify window &nome_form. nozoom nogrow
thisform.refresh()
endtext
xx.WriteMethod('init',lcText)
text to lcText noshow
thisform.release
clear events
endtext
xx.txt1.writemethod('gotfocus',lcText)
KEYBOARD 'Y' CLEAR
RELEASE WINDOW 'Form Designer'
erase testxx.pj?
CREATE PROJECT testxx nowait
TEXT TO lcText NOSHOW
do form testxx
read events
endtext
DELETE FILE testxx.prg
=STRTOFILE(lcText,'testxx.prg',0)
_vfp.ActiveProject.files.add('testxx.prg')
_vfp.ActiveProject.Debug = .f.
if !_vfp.ActiveProject.Build('testxx.exe',)
?'build failed'
return
endif
_vfp.ActiveProject.close
lcRuncmd ="! /n "+SET("Default")+CURDIR()+'testxx.exe -c'
for lni = 1 to 50
@ 2,2 say lni
&lcRuncmd
endfor
clear dlls
return
This will run the exe 50 times no problem for me. If you could try my code, and let me know if you see the fatal exception, that would be great. If it doesn't crash, and you could make changes to my code to make it crash and repost the code, that would be great also.
You said you are using XP and Windows 2000. A quick question, are you and your users configured with regional language settings other than English, perhaps "Portuguese (Brazil)"?
Hopefully we can get this sorted out, and thanks!
>Ok, now it's 04:00am at Brazil. And i'm trying to reproce the problem.
>Now i need sleep. eehehehehehehe
>
>This piece of code was in a form that i used since fox 3.0
>----------------------------------------------------
>Form.Init()
>
>...code...
>
>local nome_form
>nome_form = thisform.name
>modify window &nome_form. nozoom nogrow
>
>thisform.refresh()
>----------------------------------------------------
>
>It's a ridiculous code but if your main.prg calls this form you could reproce the problem.
>
>Not once, but 10 ou 50 times.
>Put a command at GOTFOCUS to autoclose the form.
>
>Make a EXE and starts call this program.
>
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE Ops, a error...
>call MAIN.EXE
>call MAIN.EXE
>
>If you call 50 times could be that 4 or more erros fire.
>It's not a constant.
>
>Sometimes more, sometime less...
>
>After remove and change this old code at my init form event the error persistis. Something else also produce this problem.
>
>But it's a example to reproduce the error.
>
>I hope you find a fix to this bug.
>
>[]s
moshe@moshe.com.br
Jim Saunders
Microsoft
This posting is provided “AS IS”, with no warranties, and confers no rights.