Thank you friends,

I found the following solution in TechNet of January 1998:


DECLARE INTEGER FindWindow IN WIN32API AS FindW STRING, STRING

apphandle = FindW("MSPaintApp",.Null.)

if apphandle > 0
return .t.
else
return .f.
endif