Initial commit

2026-07-13 10:02:53 +08:00
commit e73ef3aac0
8 changed files with 2733 additions and 0 deletions
@@ -0,0 +1,52 @@
+//---------------------------------------------------------------------------
+
+#ifndef UpgradeUnitH
+#define UpgradeUnitH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ComCtrls.hpp>
+
+#define APPNAME					"APP×Ô¶¯Éý¼¶³ÌÐò\0"
+
+//---------------------------------------------------------------------------
+class TUpgradeForm : public TForm
+{
+__published:	// IDE-managed Components
+	TLabel *m_lblFileCount;
+	TProgressBar *m_progCount;
+	TLabel *m_lblTxt;
+	TProgressBar *m_progFile;
+	TLabel *m_lblFileName;
+	TButton *m_btnCancel;
+	void __fastcall FormDestroy(TObject *Sender);
+	void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
+	void __fastcall FormShow(TObject *Sender);
+	void __fastcall CancelClick(TObject *Sender);
+private:	// User declarations
+	TThread *m_pThread;
+
+	void __fastcall CreateParams(TCreateParams &Params);
+
+	MESSAGE void __fastcall UMProgress(TMessage &msg);
+	MESSAGE void __fastcall UMShowText(TMessage &msg);
+	MESSAGE void __fastcall UMComplete(TMessage &msg);
+
+	BEGIN_MESSAGE_MAP
+		MESSAGE_HANDLER(UM_PROGRESS, TMessage, UMProgress)
+		MESSAGE_HANDLER(UM_SHOWTEXT, TMessage, UMShowText)
+		MESSAGE_HANDLER(UM_COMPLETE, TMessage, UMComplete)
+	END_MESSAGE_MAP(TForm)
+public:		// User declarations
+	__fastcall TUpgradeForm(TComponent* Owner);
+
+	int m_iMode;
+	int m_idSoft;
+    String m_sVar;
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TUpgradeForm *UpgradeForm;
+//---------------------------------------------------------------------------
+#endif