cbdemo.cpp

让喇叭发声的控件

#include <vcl\vcl.h>
#pragma hdrstop

USEFORM("CBDemo1.cpp", DemoFrm);
USEUNIT("Bleeper.pas");
USEUNIT("BleepInt.pas");
USEUNIT("GWBleep.pas");

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) {
       try {
           Application->Initialize();
           Application->CreateForm(__classid(TDemoFrm), &DemoFrm);
           Application->Run();
	}
	catch (Exception &exception) {
           Application->ShowException(&exception);
	}
	return 0;
}