如何创造一个程序在一个窗体存在时一直运行啊？

[wbiyr]

如果释放了这个窗体的内存，那个程序也跟着消失。我主要是要对研华的板卡进行I/O控制。想在一个窗体程序运行时控制板卡。

[lihongxing2002]

在窗体的close事件中，写代码，结束那个程序的进程

[ynotgo]

不停的检测窗体所属的进程应该可以吧
象很多提取系统进程信息的小程序一样

但具体我就不知道了，没做过

[ynotgo]

我理解错了

以为哪个窗口和你想做的程序不是一个呢

[wbiyr]

我主要是想开始就运行它，一直到这个窗口delete掉。但是在oncreat事件中只是触发一次啊，我想一直触发它

[有哥]

不要把处理代码放在窗体里，在工程文件里：
TForm *Form1=new TForm1(Application);
Form1->Show();
do
{
/*
你的处理
*/
Application->ProcessMessages();

}while(Form1)

[wbiyr]

可能是我说得不清楚。我是先打开I/O某几个端口。然后开始计时。时间一到。这些端口自动关闭，然后在打开另外一些端口（可嫩和上次的有重复）。如此反复。直到窗体被delete掉。这些控制要求从从这个窗体创键开始就执行

[csrwgs]

可以在一个Timer里循环采集、处理数据
楼主用研华的板子作采集吧？

[wbiyr]

是啊。主要是用timer组件不是很好用。就是说打开板卡之后，我想直接计时，而等计时结束变换板卡的端口。反复。这样的过程一直持续到窗体关闭

[有哥]

为窗体设置一个bool属性如：bool bClose();
Form1::Show()
{
bClose=false;
while(!bClose)
{
{打开端口 PortNumber}
Application->ProcessMessages();
if (iCount>60) {关闭端口;PortNumber=NewValue;iCount=0}
}
}

计时
Timer::Timer {iCount++;}

处理关闭事件
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (!bClose)
{
bClose=true;
CanClose=false;
}
else
CanClose=true;
}

[有哥]

字打多了就容易错：bool bClose;