imp_forms.pas

Delphi脚本控件

  RegisterMethod(TScreen,
       'function TScreen_GetHeight:Integer;',
       @TScreen_GetHeight, Fake);
  RegisterProperty(TScreen,
       'property Height:Integer read TScreen_GetHeight;');
  RegisterMethod(TScreen,
       'function TScreen_GetPixelsPerInch:Integer;',
       @TScreen_GetPixelsPerInch, Fake);
  RegisterProperty(TScreen,
       'property PixelsPerInch:Integer read TScreen_GetPixelsPerInch;');
  RegisterMethod(TScreen,
       'function TScreen_GetWidth:Integer;',
       @TScreen_GetWidth, Fake);
  RegisterProperty(TScreen,
       'property Width:Integer read TScreen_GetWidth;');
  // End of class TScreen
  RegisterRTTIType(TypeInfo(TTimerMode));
  // Begin of class TApplication
  RegisterClassType(TApplication, H);
  RegisterMethod(TApplication,
       'constructor Create(AOwner: TComponent); override;',
       @TApplication.Create);
  RegisterMethod(TApplication,
       'destructor Destroy; override;',
       @TApplication.Destroy);
  RegisterMethod(TApplication,
       'procedure ActivateHint(CursorPos: TPoint);',
       @TApplication.ActivateHint);
  RegisterMethod(TApplication,
       'procedure BringToFront;',
       @TApplication.BringToFront);
  RegisterMethod(TApplication,
       'procedure ControlDestroyed(Control: TControl);',
       @TApplication.ControlDestroyed);
  RegisterMethod(TApplication,
       'procedure CancelHint;',
       @TApplication.CancelHint);
  RegisterMethod(TApplication,
       'procedure CreateForm(InstanceClass: TComponentClass; var Reference);',
       @TApplication.CreateForm);
  RegisterMethod(TApplication,
       'procedure CreateHandle;',
       @TApplication.CreateHandle);
  RegisterMethod(TApplication,
       'function ExecuteAction(Action: TBasicAction): Boolean; reintroduce;',
       @TApplication.ExecuteAction);
  RegisterMethod(TApplication,
       'procedure HandleException(Sender: TObject);',
       @TApplication.HandleException);
  RegisterMethod(TApplication,
       'procedure HandleMessage;',
       @TApplication.HandleMessage);
  RegisterMethod(TApplication,
       'function HelpCommand(Command: Integer; Data: Longint): Boolean;',
       @TApplication.HelpCommand);
  RegisterMethod(TApplication,
       'function HelpContext(Context: THelpContext): Boolean;',
       @TApplication.HelpContext);
  RegisterMethod(TApplication,
       'function HelpJump(const JumpID: string): Boolean;',
       @TApplication.HelpJump);
  RegisterMethod(TApplication,
       'procedure HideHint;',
       @TApplication.HideHint);
  RegisterMethod(TApplication,
       'procedure HintMouseMessage(Control: TControl; var Message: TMessage);',
       @TApplication.HintMouseMessage);
  RegisterMethod(TApplication,
       'procedure HookMainWindow(Hook: TWindowHook);',
       @TApplication.HookMainWindow);
  RegisterMethod(TApplication,
       'procedure Initialize;',
       @TApplication.Initialize);
  RegisterMethod(TApplication,
       'function IsRightToLeft: Boolean;',
       @TApplication.IsRightToLeft);
  RegisterMethod(TApplication,
       'function MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;',
       @TApplication.MessageBox);
  RegisterMethod(TApplication,
       'procedure Minimize;',
       @TApplication.Minimize);
  RegisterMethod(TApplication,
       'procedure NormalizeAllTopMosts;',
       @TApplication.NormalizeAllTopMosts);
  RegisterMethod(TApplication,
       'procedure NormalizeTopMosts;',
       @TApplication.NormalizeTopMosts);
  RegisterMethod(TApplication,
       'procedure ProcessMessages;',
       @TApplication.ProcessMessages);
  RegisterMethod(TApplication,
       'procedure Restore;',
       @TApplication.Restore);
  RegisterMethod(TApplication,
       'procedure RestoreTopMosts;',
       @TApplication.RestoreTopMosts);
  RegisterMethod(TApplication,
       'procedure Run;',
       @TApplication.Run);
  RegisterMethod(TApplication,
       'procedure ShowException(E: Exception);',
       @TApplication.ShowException);
  RegisterMethod(TApplication,
       'procedure Terminate;',
       @TApplication.Terminate);
  RegisterMethod(TApplication,
       'procedure UnhookMainWindow(Hook: TWindowHook);',
       @TApplication.UnhookMainWindow);
  RegisterMethod(TApplication,
       'function UpdateAction(Action: TBasicAction): Boolean; reintroduce;',
       @TApplication.UpdateAction);
  RegisterMethod(TApplication,
       'function UseRightToLeftAlignment: Boolean;',
       @TApplication.UseRightToLeftAlignment);
  RegisterMethod(TApplication,
       'function UseRightToLeftReading: Boolean;',
       @TApplication.UseRightToLeftReading);
  RegisterMethod(TApplication,
       'function UseRightToLeftScrollBar: Boolean;',
       @TApplication.UseRightToLeftScrollBar);
  RegisterMethod(TApplication,
       'function TApplication_GetActive:Boolean;',
       @TApplication_GetActive, Fake);
  RegisterProperty(TApplication,
       'property Active:Boolean read TApplication_GetActive;');
  RegisterMethod(TApplication,
       'function TApplication_GetAllowTesting:Boolean;',
       @TApplication_GetAllowTesting, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutAllowTesting(const Value: Boolean);',
       @TApplication_PutAllowTesting, Fake);
  RegisterProperty(TApplication,
       'property AllowTesting:Boolean read TApplication_GetAllowTesting write TApplication_PutAllowTesting;');
  RegisterMethod(TApplication,
       'function TApplication_GetCurrentHelpFile:String;',
       @TApplication_GetCurrentHelpFile, Fake);
  RegisterProperty(TApplication,
       'property CurrentHelpFile:String read TApplication_GetCurrentHelpFile;');
  RegisterMethod(TApplication,
       'function TApplication_GetDialogHandle:HWnd;',
       @TApplication_GetDialogHandle, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutDialogHandle(const Value: HWnd);',
       @TApplication_PutDialogHandle, Fake);
  RegisterProperty(TApplication,
       'property DialogHandle:HWnd read TApplication_GetDialogHandle write TApplication_PutDialogHandle;');
  RegisterMethod(TApplication,
       'function TApplication_GetExeName:String;',
       @TApplication_GetExeName, Fake);
  RegisterProperty(TApplication,
       'property ExeName:String read TApplication_GetExeName;');
  RegisterMethod(TApplication,
       'function TApplication_GetHandle:HWnd;',
       @TApplication_GetHandle, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutHandle(const Value: HWnd);',
       @TApplication_PutHandle, Fake);
  RegisterProperty(TApplication,
       'property Handle:HWnd read TApplication_GetHandle write TApplication_PutHandle;');
  RegisterMethod(TApplication,
       'function TApplication_GetHelpFile:String;',
       @TApplication_GetHelpFile, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutHelpFile(const Value: String);',
       @TApplication_PutHelpFile, Fake);
  RegisterProperty(TApplication,
       'property HelpFile:String read TApplication_GetHelpFile write TApplication_PutHelpFile;');
  RegisterMethod(TApplication,
       'function TApplication_GetHint:String;',
       @TApplication_GetHint, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutHint(const Value: String);',
       @TApplication_PutHint, Fake);
  RegisterProperty(TApplication,
       'property Hint:String read TApplication_GetHint write TApplication_PutHint;');
  RegisterMethod(TApplication,
       'function TApplication_GetHintColor:TColor;',
       @TApplication_GetHintColor, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutHintColor(const Value: TColor);',
       @TApplication_PutHintColor, Fake);
  RegisterProperty(TApplication,
       'property HintColor:TColor read TApplication_GetHintColor write TApplication_PutHintColor;');
  RegisterMethod(TApplication,
       'function TApplication_GetHintHidePause:Integer;',
       @TApplication_GetHintHidePause, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutHintHidePause(const Value: Integer);',
       @TApplication_PutHintHidePause, Fake);
  RegisterProperty(TApplication,
       'property HintHidePause:Integer read TApplication_GetHintHidePause write TApplication_PutHintHidePause;');
  RegisterMethod(TApplication,
       'function TApplication_GetHintPause:Integer;',
       @TApplication_GetHintPause, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutHintPause(const Value: Integer);',
       @TApplication_PutHintPause, Fake);
  RegisterProperty(TApplication,
       'property HintPause:Integer read TApplication_GetHintPause write TApplication_PutHintPause;');
  RegisterMethod(TApplication,
       'function TApplication_GetHintShortCuts:Boolean;',
       @TApplication_GetHintShortCuts, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutHintShortCuts(const Value: Boolean);',
       @TApplication_PutHintShortCuts, Fake);
  RegisterProperty(TApplication,
       'property HintShortCuts:Boolean read TApplication_GetHintShortCuts write TApplication_PutHintShortCuts;');
  RegisterMethod(TApplication,
       'function TApplication_GetHintShortPause:Integer;',
       @TApplication_GetHintShortPause, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutHintShortPause(const Value: Integer);',
       @TApplication_PutHintShortPause, Fake);
  RegisterProperty(TApplication,
       'property HintShortPause:Integer read TApplication_GetHintShortPause write TApplication_PutHintShortPause;');
  RegisterMethod(TApplication,
       'function TApplication_GetIcon:TIcon;',
       @TApplication_GetIcon, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutIcon(const Value: TIcon);',
       @TApplication_PutIcon, Fake);
  RegisterProperty(TApplication,
       'property Icon:TIcon read TApplication_GetIcon write TApplication_PutIcon;');
  RegisterMethod(TApplication,
       'function TApplication_GetMainForm:TForm;',
       @TApplication_GetMainForm, Fake);
  RegisterProperty(TApplication,
       'property MainForm:TForm read TApplication_GetMainForm;');
  RegisterMethod(TApplication,
       'function TApplication_GetBiDiMode:TBiDiMode;',
       @TApplication_GetBiDiMode, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutBiDiMode(const Value: TBiDiMode);',
       @TApplication_PutBiDiMode, Fake);
  RegisterProperty(TApplication,
       'property BiDiMode:TBiDiMode read TApplication_GetBiDiMode write TApplication_PutBiDiMode;');
  RegisterMethod(TApplication,
       'function TApplication_GetBiDiKeyboard:String;',
       @TApplication_GetBiDiKeyboard, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutBiDiKeyboard(const Value: String);',
       @TApplication_PutBiDiKeyboard, Fake);
  RegisterProperty(TApplication,
       'property BiDiKeyboard:String read TApplication_GetBiDiKeyboard write TApplication_PutBiDiKeyboard;');
  RegisterMethod(TApplication,
       'function TApplication_GetNonBiDiKeyboard:String;',
       @TApplication_GetNonBiDiKeyboard, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutNonBiDiKeyboard(const Value: String);',
       @TApplication_PutNonBiDiKeyboard, Fake);
  RegisterProperty(TApplication,
       'property NonBiDiKeyboard:String read TApplication_GetNonBiDiKeyboard write TApplication_PutNonBiDiKeyboard;');
  RegisterMethod(TApplication,
       'function TApplication_GetShowHint:Boolean;',
       @TApplication_GetShowHint, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutShowHint(const Value: Boolean);',
       @TApplication_PutShowHint, Fake);
  RegisterProperty(TApplication,
       'property ShowHint:Boolean read TApplication_GetShowHint write TApplication_PutShowHint;');
  RegisterMethod(TApplication,
       'function TApplication_GetShowMainForm:Boolean;',
       @TApplication_GetShowMainForm, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutShowMainForm(const Value: Boolean);',
       @TApplication_PutShowMainForm, Fake);
  RegisterProperty(TApplication,
       'property ShowMainForm:Boolean read TApplication_GetShowMainForm write TApplication_PutShowMainForm;');
  RegisterMethod(TApplication,
       'function TApplication_GetTerminated:Boolean;',
       @TApplication_GetTerminated, Fake);
  RegisterProperty(TApplication,
       'property Terminated:Boolean read TApplication_GetTerminated;');
  RegisterMethod(TApplication,
       'function TApplication_GetTitle:String;',
       @TApplication_GetTitle, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutTitle(const Value: String);',
       @TApplication_PutTitle, Fake);
  RegisterProperty(TApplication,
       'property Title:String read TApplication_GetTitle write TApplication_PutTitle;');
  RegisterMethod(TApplication,
       'function TApplication_GetUpdateFormatSettings:Boolean;',
       @TApplication_GetUpdateFormatSettings, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutUpdateFormatSettings(const Value: Boolean);',
       @TApplication_PutUpdateFormatSettings, Fake);
  RegisterProperty(TApplication,
       'property UpdateFormatSettings:Boolean read TApplication_GetUpdateFormatSettings write TApplication_PutUpdateFormatSettings;');
  RegisterMethod(TApplication,
       'function TApplication_GetUpdateMetricSettings:Boolean;',
       @TApplication_GetUpdateMetricSettings, Fake);
  RegisterMethod(TApplication,
       'procedure TApplication_PutUpdateMetricSettings(const Value: Boolean);',
       @TApplication_PutUpdateMetricSettings, Fake);
  RegisterProperty(TApplication,
       'property UpdateMetricSettings:Boolean read TApplication_GetUpdateMetricSettings write TApplication_PutUpdateMetricSettings;');
  // End of class TApplication
  RegisterRoutine('function GetParentForm(Control: TControl): TCustomForm;', @GetParentForm, H);
  RegisterRoutine('function ValidParentForm(Control: TControl): TCustomForm;', @ValidParentForm, H);
  RegisterRoutine('function DisableTaskWindows(ActiveWindow: HWnd): Pointer;', @DisableTaskWindows, H);

  RegisterRoutine('procedure EnableTaskWindows(WindowList: Pointer);', @EnableTaskWindows, H);
  RegisterRoutine('function MakeObjectInstance(Method: TWndMethod): Pointer;', @MakeObjectInstance, H);
  RegisterRoutine('procedure FreeObjectInstance(ObjectInstance: Pointer);', @FreeObjectInstance, H);
  RegisterRoutine('function IsAccel(VK: Word; const Str: string): Boolean;', @IsAccel, H);
  RegisterRoutine('function  Subclass3DWnd(Wnd: HWnd): Boolean;', @Subclass3DWnd, H);
  RegisterRoutine('procedure Subclass3DDlg(Wnd: HWnd; Flags: Word);', @Subclass3DDlg, H);
  RegisterRoutine('procedure SetAutoSubClass(Enable: Boolean);', @SetAutoSubClass, H);
  RegisterRoutine('function AllocateHWnd(Method: TWndMethod): HWND;', @AllocateHWnd, H);
  RegisterRoutine('procedure DeallocateHWnd(Wnd: HWND);', @DeallocateHWnd, H);
  RegisterRoutine('procedure DoneCtl3D;', @DoneCtl3D, H);
  RegisterRoutine('procedure InitCtl3D;', @InitCtl3D, H);
  RegisterRoutine('function KeysToShiftState(Keys: Word): TShiftState;', @KeysToShiftState, H);
  RegisterRoutine('function KeyDataToShiftState(KeyData: Longint): TShiftState;', @KeyDataToShiftState, H);
  RegisterRoutine('function KeyboardStateToShiftState(const KeyboardState: TKeyboardState): TShiftState;', @KeyboardStateToShiftState, H);
  RegisterRoutine('function ForegroundTask: Boolean;', @ForegroundTask, H);
end;
initialization
  RegisterIMP_forms;
end.