| 1 |
UNIT Unit1; |
| 2 |
INTERFACE |
| 3 |
USES |
| 4 |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| 5 |
Dialogs, StdCtrls, CrossEdit, Math, ExtCtrls; |
| 6 |
|
| 7 |
TYPE |
| 8 |
TForm1 = Class(TForm) |
| 9 |
grp_center: TGroupBox; |
| 10 |
group_setxy: TGroupBox; |
| 11 |
btn_center: TButton; |
| 12 |
edit_x: TCrossEdit; |
| 13 |
edit_y: TCrossEdit; |
| 14 |
btn_setxy: TButton; |
| 15 |
group_black: TGroupBox; |
| 16 |
btn_black: TButton; |
| 17 |
timer_check: TTimer; |
| 18 |
PROCEDURE timer_checkTimer(Sender: TObject); |
| 19 |
PROCEDURE btn_blackClick(Sender: TObject); |
| 20 |
PROCEDURE btn_setxyClick(Sender: TObject); |
| 21 |
PROCEDURE FormCreate(Sender: TObject); |
| 22 |
PROCEDURE btn_centerClick(Sender: TObject); |
| 23 |
PROCEDURE Button1Click(Sender: TObject); |
| 24 |
PRIVATE |
| 25 |
PUBLIC |
| 26 |
END; |
| 27 |
|
| 28 |
VAR |
| 29 |
Form1: TForm1; |
| 30 |
|
| 31 |
IMPLEMENTATION |
| 32 |
USES Unit2; |
| 33 |
{$R *.dfm} |
| 34 |
VAR |
| 35 |
ONIHandle:LongWord; |
| 36 |
|
| 37 |
PROCEDURE TForm1.Button1Click(Sender: TObject); |
| 38 |
BEGIN |
| 39 |
ONIHandle:=FindWindow(PChar('ONI '),PChar('ONI ')); |
| 40 |
Form1.Caption:=IntToStr(ONIHandle); |
| 41 |
END; |
| 42 |
|
| 43 |
PROCEDURE TForm1.btn_centerClick(Sender: TObject); |
| 44 |
VAR |
| 45 |
Handle,NewX,NewY:LongWord; |
| 46 |
Screen,Cur:TRect; |
| 47 |
ScreenWidth,ScreenHeight,Width,Height:LongWord; |
| 48 |
BEGIN |
| 49 |
Handle:=FindWindow(PChar('ONI '),PChar('ONI ')); |
| 50 |
IF Handle>0 THEN BEGIN |
| 51 |
GetWindowRect(Handle,Cur); |
| 52 |
GetWindowRect(GetDesktopWindow,Screen); |
| 53 |
ScreenWidth:=Screen.Right-Screen.Left; |
| 54 |
ScreenHeight:=Screen.Bottom-Screen.Top; |
| 55 |
Width:=Cur.Right-Cur.Left; |
| 56 |
Height:=Cur.Bottom-Cur.Top; |
| 57 |
IF (Width<ScreenWidth) AND (Height<ScreenHeight) THEN BEGIN |
| 58 |
NewX:=(ScreenWidth DIV 2)-(Width DIV 2); |
| 59 |
NewY:=(ScreenHeight DIV 2)-(Height DIV 2); |
| 60 |
IF NOT SetWindowPos(Handle,0,NewX,NewY,0,0,SWP_NOSIZE OR SWP_NOACTIVATE OR SWP_NOZORDER) THEN |
| 61 |
ShowMessage('Couldn''t set the position of ONIs window!'); |
| 62 |
END ELSE ShowMessage('ONIs window is at fullscreen!'); |
| 63 |
END ELSE ShowMessage('Couldn''t find ONIs window!'); |
| 64 |
END; |
| 65 |
|
| 66 |
PROCEDURE TForm1.FormCreate(Sender: TObject); |
| 67 |
VAR |
| 68 |
Screen:TRect; |
| 69 |
BEGIN |
| 70 |
GetWindowRect(GetDesktopWindow,Screen); |
| 71 |
edit_x.Max:=Screen.Right; |
| 72 |
edit_y.Max:=Screen.Bottom; |
| 73 |
edit_x.BorderStyle:=bsSingle; |
| 74 |
edit_y.BorderStyle:=bsSingle; |
| 75 |
END; |
| 76 |
|
| 77 |
PROCEDURE TForm1.btn_setxyClick(Sender: TObject); |
| 78 |
VAR |
| 79 |
Handle:LongWord; |
| 80 |
BEGIN |
| 81 |
IF edit_x.CheckError THEN BEGIN |
| 82 |
ShowMessage('x-value has to be between 0 and '+IntToStr(Floor(edit_x.Max))+'!'); |
| 83 |
Exit; |
| 84 |
END; |
| 85 |
IF edit_y.CheckError THEN BEGIN |
| 86 |
ShowMessage('y-value has to be between 0 and '+IntToStr(Floor(edit_y.Max))+'!'); |
| 87 |
Exit; |
| 88 |
END; |
| 89 |
Handle:=FindWindow(PChar('ONI '),PChar('ONI ')); |
| 90 |
IF Handle>0 THEN BEGIN |
| 91 |
IF NOT SetWindowPos(Handle,0,edit_x.GetInteger,edit_y.GetInteger,0,0,SWP_NOSIZE OR SWP_NOACTIVATE OR SWP_NOZORDER) THEN |
| 92 |
ShowMessage('Couldn''t set the position of ONIs window!'); |
| 93 |
END ELSE ShowMessage('Couldn''t find ONIs window!'); |
| 94 |
END; |
| 95 |
|
| 96 |
PROCEDURE TForm1.btn_blackClick(Sender: TObject); |
| 97 |
BEGIN |
| 98 |
IF FindWindow(PChar('ONI '),PChar('ONI '))>0 THEN BEGIN |
| 99 |
Form2.Visible:=NOT Form2.Visible; |
| 100 |
SetForeGroundWindow(FindWindow(PChar('ONI '),PChar('ONI '))); |
| 101 |
END; |
| 102 |
END; |
| 103 |
|
| 104 |
PROCEDURE TForm1.timer_checkTimer(Sender: TObject); |
| 105 |
BEGIN |
| 106 |
IF Form2.Visible THEN BEGIN |
| 107 |
IF FindWindow(PChar('ONI '),PChar('ONI '))=0 THEN Form2.Visible:=False; |
| 108 |
END; |
| 109 |
END; |
| 110 |
|
| 111 |
END. |
