First commit 19/07/1998

CDopping/ActvApp/ActivApp.hpp

@@ -0,0 +1,62 @@
+// Borland C++ Builder
+// Copyright (c) 1995, 1998 by Borland International
+// All rights reserved
+
+// (DO NOT EDIT: machine generated header) 'ActivApp.pas' rev: 3.00
+
+#ifndef ActivAppHPP
+#define ActivAppHPP
+#include <Forms.hpp>
+#include <Classes.hpp>
+#include <SysUtils.hpp>
+#include <Messages.hpp>
+#include <Windows.hpp>
+#include <SysInit.hpp>
+#include <System.hpp>
+
+//-- user supplied -----------------------------------------------------------
+
+namespace Activapp
+{
+//-- type declarations -------------------------------------------------------
+typedef void __fastcall (__closure *TMYParamEvent)(System::TObject* Sender, bool &Continue);
+
+typedef void __fastcall (__closure *TSuccess)(System::TObject* Sender, bool Result);
+
+class DELPHICLASS TActivApp;
+class PASCALIMPLEMENTATION TActivApp : public Classes::TComponent 
+{
+	typedef Classes::TComponent inherited;
+	
+private:
+	System::AnsiString GetAppToActivate;
+	System::AnsiString GetExePath;
+	TMYParamEvent EBeforeLaunchApp;
+	void __fastcall SetAppToActivate(System::AnsiString Value);
+	void __fastcall SetExePath(System::AnsiString Value);
+	
+protected:
+	void __fastcall ShowYourSelf(tagMSG &Msg, bool &Handled);
+	
+__published:
+	__fastcall virtual TActivApp(Classes::TComponent* AOwner);
+	void __fastcall ActivateApp(void);
+	void __fastcall ExecuteApp(bool Success);
+	__property System::AnsiString MainFormTitle = {read=GetAppToActivate, write=SetAppToActivate};
+	__property System::AnsiString ExePath = {read=GetExePath, write=SetExePath};
+	__property TMYParamEvent BeforeLaunchApp = {read=EBeforeLaunchApp, write=EBeforeLaunchApp};
+public:
+	/* TComponent.Destroy */ __fastcall virtual ~TActivApp(void) { }
+	
+};
+
+//-- var, const, procedure ---------------------------------------------------
+#define WM_ShowYourSelf (Word)(1426)
+extern PACKAGE void __fastcall Register(void);
+
+}	/* namespace Activapp */
+#if !defined(NO_IMPLICIT_NAMESPACE_USE)
+using namespace Activapp;
+#endif
+//-- end unit ----------------------------------------------------------------
+#endif	// ActivApp