救助，关于监控

Question

我想写一个后台程序，做监控用，不用窗体的程序怎样实现？ 或者有什么更好的方法实现程序在后台运行？

Answer 1

或者可以将窗体隐藏，添加一个小图标到右下脚的图标框，通过点击来击活窗体呀。
{$R *.RES}
var hMutex:HWND;
    Ret:Integer;
begin
  Application.Initialize;  
  hMutex:=CreateMutex(nil,false,'ShenZhen LDT Communication Technology Co.,Ltd');
  Ret:=GetLastError;
  IF Ret<>ERROR_ALREADY_EXISTS Then
  Begin   Application.ShowMainForm:=false;
   Application.CreateForm(TWaitForDrives, WaitForDrives);
   Application.CreateForm(TDataModule1, DataModule1);
   Application.CreateForm(TTelCommunicate, TelCommunicate);
   Application.CreateForm(TShowTelcommunication, ShowTelcommunication);
   Application.CreateForm(TRealTimeAlertForms, RealTimeAlertForms);
   Application.CreateForm(TRealTimeTask, RealTimeTask);     
   Showwindow(application.handle,sw_hide);
   Application.Run;
   
  end
  Else Application.MessageBox('网管后台通讯实时监控程序已经在运行，您不能再次运行本程序！','警告!',MB_OK);
  ReleaseMutex(hMutex);
end.

Answer 2

其实不必要
你做一个后台控制，不需要窗口
所以
   New->Application后，找Remove，把自动生成的Unit1移掉
   查看View Source
   那就是Applicaton的代码
   把你想实现的代码写在里面就可以了

Answer 3

没有Form怎么把组件加上去，比如要加入一个Timer组件，怎么办？