552
社区成员
发帖
与我相关
我的任务
分享
//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
char fileName[]="EventsLog2.txt";
FILE *logfile;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
logfile=fopen(fileName,"wt");
if(!logfile)
{
ShowMessage("创建文件"+AnsiString(fileName)+"失败!");
throw Exception("创建文件失败");
}
fprintf(logfile,"%d,%s\nWinMain函数\n",__LINE__,__FUNC__);
// ShowMessage("WinMain函数");
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
fclose(logfile);
return 0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
extern char fileName[];
extern FILE *logfile;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
fprintf(logfile,"\n%s , %s , %s\n%d,%s\n构造函数\n",
__DATE__,__TIME__,__FILE__,__LINE__,__FUNC__);
Label1->Caption="程序关闭后请查看 \n"
+ExtractFilePath(Application->ExeName)
+AnsiString(fileName)+" ";
Label1->Font->Size=16;
Label1->Font->Color=clBlue;
//ShowMessage("构造函数");
}
//---------------------------------------------------------------------------
//析构函数声明添加到头文件
__fastcall TForm1::~TForm1()
{
fprintf(logfile,"%d,%s\n析构函数\n",__LINE__,__FUNC__);
//ShowMessage("析构函数");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnCreate\n",__LINE__,__FUNC__);
//ShowMessage("OnCreate");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnShow\n",__LINE__,__FUNC__);
//ShowMessage("OnShow");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnPaint\n",__LINE__,__FUNC__);
//ShowMessage("OnPaint");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnActivate\n",__LINE__,__FUNC__);
//ShowMessage("OnActivate");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDeactivate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnDeactivate\n",__LINE__,__FUNC__);
//ShowMessage("OnDeactivate");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
fprintf(logfile,"%d,%s\nOnCloseQuery\n",__LINE__,__FUNC__);
//ShowMessage("OnCloseQuery");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
fprintf(logfile,"%d,%s\nOnClose\n",__LINE__,__FUNC__);
//ShowMessage("OnClose");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnDestroy\n",__LINE__,__FUNC__);
//ShowMessage("OnDestroy");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Activate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnApplicationActivate\n",__LINE__,__FUNC__);
//ShowMessage("OnApplicationActivate");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Deactivate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnApplicationDeactivate\n",__LINE__,__FUNC__);
//ShowMessage("OnApplicationDeactivate");
}
//---------------------------------------------------------------------------