文件监控 源代码 完整程序 cb c++

#define NO_WIN32_LEAN_AND_MEAN #include "shlobj.h" #include <vcl.h> #pragma hdrstop #include "unit1.h" #include "stdlib.h" #include "unit2.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::WndProc(TMessage &Message) { switch(Message.Msg) { case xiugaixians: mmoResult->Lines->Add(xiugaifanhui(Message.WParam, Message.LParam)); break; default: break; } TForm::WndProc(Message); } //--------------------------------------------------------------------------- void __fastcall TForm1::btnStartClick(TObject *Sender) { xiugaijilu = 0; mmoResult->Lines->Add(String("开始监视程序") + (zhucebianxiugai(Handle)? String("成功!"): String("失败!"))); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { if(zhuomianjilu) Unzhucebianxiugai(); } //--------------------------------------------------------------------------- void __fastcall TForm1::exitClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::btnStopClick(TObject *Sender) { if(zhuomianjilu) { mmoResult->Lines->Add(String("停止监视程序") + (Unzhucebianxiugai()? String("成功!"): String("失败!"))); } } //---------------------------------------------------------------------------