MediaInfo源代码

//---------------------------------------------------------------------------

#include 
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM（“..\..\..\Source\GUI\VCL\GUI_Preferences_Sheet.cpp“ Preferences_SheetF）;
USEFORM（“..\..\..\Source\GUI\VCL\GUI_Web.cpp“ WebF）;
USEFORM（“..\..\..\Source\GUI\VCL\GUI_Preferences_Language.cpp“ Preferences_LanguageF）;
USEFORM（“..\..\..\Source\GUI\VCL\GUI_Preferences_Output.cpp“ Preferences_OutputF）;
USEFORM（“..\..\..\Source\GUI\VCL\GUI_Preferences_Custom.cpp“ Preferences_CustomF）;
USEFORM（“..\..\..\Source\GUI\VCL\GUI_Main.cpp“ MainF）;
USEFORM（“..\..\..\Source\GUI\VCL\GUI_Export.cpp“ ExportF）;
USEFORM（“..\..\..\Source\GUI\VCL\GUI_Preferences.cpp“ PreferencesF）;
USEFORM（“..\..\..\Source\GUI\VCL\GUI_About.cpp“ AboutF）;
//---------------------------------------------------------------------------
WINAPI WinMain（HINSTANCE HINSTANCE LPSTR int）
{
	try
	{
		Application->Initialize（）;
		Application->title = “MediaInfo“;
        Application->CreateForm（__classid（TMainF） &MainF）;
		Application->Run（）;
	}
	catch （Exception &exception）
	{
		Application->ShowException（&exception）;
	}
	catch （...）
	{
		try
		{
			throw Exception（““）;
		}
		catch （Exception &exception）
		{
			Application->ShowException（&exception）;
		}
	}
	return 0;
}
//---------------------------------------------------------------------------