unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ShellAPI; type TForm1 = class(TForm) img1: TImage; btn1: TBitBtn; btn2: TBitBtn; btn3: TBitBtn; btn4: TBitBtn; procedure btn1Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); begin form1.Close; end; procedure TForm1.btn4Click(Sender: TObject); begin form1.Close; ShellExecute(Application.Handle,PChar('open'),PChar('Start Game.exe'),nil,nil,SW_SHOW) end; procedure TForm1.FormCreate(Sender: TObject); begin SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_NOCLOSE); end; procedure TForm1.btn3Click(Sender: TObject); Var Men :HMenu; Hnd :HWnd; HndMen,HndSMen :HMenu; IdBtn,idMen :integer; begin Hnd:=FindWindow(nil, 'PCSX2 Burnout 3: Takedown'); if Hnd <>0 then begin windows.SetForegroundWindow(Hnd); HndMen:=GetMenu(Hnd); HndSMen:=GetSubMenu(HndMen,2); idMen:=GetMenuItemID(HndSMen,6); if idMen<>0 then begin PostMessage(Hnd,WM_COMMAND,idMen,0); end; end; end; end. |