一个小的VFP窗体程序

[coolyylu]

在命令窗口运行放入此内容的prg，可以产生一个exe文件，这个exe就是vfp的一个很小的窗体程序



*--------
SET SAFETY OFF
CLOSE ALL
LOCAL lcPRGStr As String
CREATE PROJECT HelloWorld NOWAIT
TEXT TO lcPRGStr TEXTMERGE NOSHOW
*- From Coolyylu
*- You can uncomment the sentence below as simple program
*- MessageBox("Hello World")
Local ofrmHello As FHelloForm
ofrmHello = CreateObject("FHelloForm")
ofrmHello.Show()

*- This is HelloWorld Class
*- Procedure is event code block
DEFINE CLASS FHelloForm As Form
Caption = "Your first VFP application - Hello World"
FontSize = 14
ShowWindow = 2
Height = 40
AutoCenter = .T.

PROCEDURE Init
This.Print("Hello World")
ENDPROC
PROCEDURE Activate
Read Events
ENDPROC
PROCEDURE QueryUnLoad
Clear Events
ENDPROC
ENDDEFINE
ENDTEXT

STRTOFILE(lcPRGStr ,"HelloWorld.Prg")
STRTOFILE("SCREEN=OFF" ,"config.fpw")
_VFP.ActiveProject.Files.Add("HelloWorld.Prg")
_VFP.ActiveProject.Files.Add("config.fpw")

*- Build project to exe application
_VFP.ActiveProject.Build("HelloWorldApp" ,3 ,.T. ,.T.)

*- Clear up
CLOSE ALL
ERASE HelloWorld.*
ERASE config.fpw

*- run application
RUN /n HelloWorldApp.exe