/[projects]/dao/DelphiScanner/Components/tpsystools_4.04/examples/CBuilder/ExUsrMgr.cpp
ViewVC logotype

Contents of /dao/DelphiScanner/Components/tpsystools_4.04/examples/CBuilder/ExUsrMgr.cpp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2671 - (show annotations) (download)
Tue Aug 25 18:15:15 2015 UTC (8 years, 9 months ago) by torben
File size: 1742 byte(s)
Added tpsystools component
1 // ***** BEGIN LICENSE BLOCK *****
2 // * Version: MPL 1.1
3 // *
4 // * The contents of this file are subject to the Mozilla Public License Version
5 // * 1.1 (the "License"); you may not use this file except in compliance with
6 // * the License. You may obtain a copy of the License at
7 // * http://www.mozilla.org/MPL/
8 // *
9 // * Software distributed under the License is distributed on an "AS IS" basis,
10 // * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11 // * for the specific language governing rights and limitations under the
12 // * License.
13 // *
14 // * The Original Code is TurboPower SysTools
15 // *
16 // * The Initial Developer of the Original Code is
17 // * TurboPower Software
18 // *
19 // * Portions created by the Initial Developer are Copyright (C) 1996-2002
20 // * the Initial Developer. All Rights Reserved.
21 // *
22 // * Contributor(s):
23 // *
24 // * ***** END LICENSE BLOCK *****
25 //---------------------------------------------------------------------------
26 #include <vcl.h>
27 #pragma hdrstop
28 USERES("ExUsrMgr.res");
29 USEFORM("ExUsrMg0.cpp", MainForm);
30 USEFORM("ExUsrMg1.cpp", UserPropertiesForm);
31 USEFORM("ExUsrMg2.cpp", GroupPropertiesForm);
32 USEFORM("ExUsrMg3.cpp", NewUserForm);
33 USEFORM("ExUsrMg4.cpp", NewGroupForm);
34 //---------------------------------------------------------------------------
35 WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
36 {
37 try
38 {
39 Application->Initialize();
40 Application->CreateForm(__classid(TMainForm), &MainForm);
41 Application->Run();
42 }
43 catch (Exception &exception)
44 {
45 Application->ShowException(&exception);
46 }
47 return 0;
48 }
49 //---------------------------------------------------------------------------

  ViewVC Help
Powered by ViewVC 1.1.20