source: cprs/branches/GUI-config/BDK32/Samples/RPCBroker/BrokerEx/BrokerExampleCCOW.dpr@ 699

Last change on this file since 699 was 476, checked in by Kevin Toppenberg, 16 years ago

New WorldVistA Config Utility

File size: 584 bytes
RevLine 
[476]1program BrokerExampleCCOW;
2
3uses
4 Forms,
5 fBrokerExampleCCOW in 'fBrokerExampleCCOW.pas' {frmBrokerExampleCCOW},
6 SplVista,
7 fOkToTerminate in 'fOkToTerminate.pas' {frmOKToTerminate};
8
9// include to display Vista splash
10
11{$R *.RES}
12
13begin
14 Application.CreateForm(TfrmBrokerExampleCCOW, frmBrokerExampleCCOW);
15 Application.CreateForm(TfrmOKToTerminate, frmOKToTerminate);
16 SplashOpen; // display splash screen
17 SplashClose(3000); // min splash time 3 seconds, then close
18 Application.Run;
19end.
Note: See TracBrowser for help on using the repository browser.