trialsoftware.hpp

TTrialSoftware LITE时间限制的共享软件控件。(源代码

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'TrialSoftware.pas' rev: 5.00

#ifndef TrialSoftwareHPP
#define TrialSoftwareHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <IniFiles.hpp>	// Pascal unit
#include <Registry.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Trialsoftware
{
//-- type declarations -------------------------------------------------------
typedef AnsiString TrialSoftware__1[36];

#pragma option push -b-
enum TStatus { stRegistered, stUnregistered, stExpired };
#pragma option pop

#pragma option push -b-
enum TTrialType { ttDays, ttTimes };
#pragma option pop

#pragma option push -b-
enum TSoftwareType { wtDemo, wtTrial };
#pragma option pop

typedef void __fastcall (__closure *TOrderNowClick)(System::TObject* Sender);

class DELPHICLASS TTrialSoftware;
class PASCALIMPLEMENTATION TTrialSoftware : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	int FTimes;
	TTrialType FTrialType;
	AnsiString FVariable;
	AnsiString FUserName;
	AnsiString FHomePage;
	AnsiString FOrderURL;
	AnsiString FEMail;
	int FDays;
	Classes::TStringList* FLines;
	TSoftwareType FSoftwareType;
	bool FUserNameEnabled;
	bool FOrderNowVisible;
	bool FShowWindowTrial;
	Graphics::TBitmap* FLogo;
	bool FTrialClose;
	AnsiString FApplication;
	AnsiString FSoftwareHouse;
	void __fastcall SetLines(Classes::TStringList* Value);
	void __fastcall LinesChanged(System::TObject* Sender);
	int __fastcall GiorniTrascorsi(void);
	AnsiString __fastcall Codificatore(AnsiString cod);
	void __fastcall SetTimes(int Value);
	void __fastcall SetLogo(Graphics::TBitmap* Value);
	void __fastcall SetUserName(AnsiString Value);
	void __fastcall SetVariable(AnsiString Value);
	void __fastcall SetDays(int Value);
	
public:
	__fastcall virtual TTrialSoftware(Classes::TComponent* AOwner);
	__fastcall virtual ~TTrialSoftware(void);
	void __fastcall Execute(void);
	void __fastcall ShowWindow(void);
	bool __fastcall Shareware(void);
	TStatus __fastcall Status(void);
	bool __fastcall UpdateStatus(void);
	AnsiString __fastcall RegisteredUser();
	
__published:
	__property bool TrialClose = {read=FTrialClose, write=FTrialClose, nodefault};
	__property int Times = {read=FTimes, write=SetTimes, nodefault};
	__property TTrialType TrialType = {read=FTrialType, write=FTrialType, nodefault};
	__property AnsiString EMail = {read=FEMail, write=FEMail};
	__property AnsiString HomePage = {read=FHomePage, write=FHomePage};
	__property AnsiString OrderURL = {read=FOrderURL, write=FOrderURL};
	__property Classes::TStringList* Lines = {read=FLines, write=SetLines};
	__property AnsiString Variable = {read=FVariable, write=SetVariable};
	__property AnsiString UserName = {read=FUserName, write=SetUserName};
	__property int Days = {read=FDays, write=SetDays, nodefault};
	__property TSoftwareType SoftwareType = {read=FSoftwareType, write=FSoftwareType, nodefault};
	__property bool UserNameEnabled = {read=FUserNameEnabled, write=FUserNameEnabled, nodefault};
	__property bool ShowWindowTrial = {read=FShowWindowTrial, write=FShowWindowTrial, nodefault};
	__property bool OrderNowVisible = {read=FOrderNowVisible, write=FOrderNowVisible, nodefault};
	__property AnsiString ApplicationName = {read=FApplication, write=FApplication};
	__property AnsiString SoftwareHouse = {read=FSoftwareHouse, write=FSoftwareHouse};
	__property Graphics::TBitmap* Logo = {read=FLogo, write=SetLogo};
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE AnsiString KEY[36];
extern PACKAGE int PosizioneBarra;
extern PACKAGE int Volte;
extern PACKAGE AnsiString Percorso;
extern PACKAGE AnsiString Variabile;
extern PACKAGE AnsiString Codice;
extern PACKAGE Registry::TRegistry* Reg;
extern PACKAGE bool Bmp;
extern PACKAGE void __fastcall Register(void);

}	/* namespace Trialsoftware */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Trialsoftware;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// TrialSoftware