آیا بردن یک دکمه به برنامه دیگه خطرناکه؟

[mbshareat]

سلام
من با کد زیر و فشار Ctrl+Q میتونم یه دکمه رو به پنجره زیر مکان نما منتقل کنم.

  TForm1 = class(TForm)

    Button1: TButton;

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { Private declarations }

    Procedure WMHotkey( Var msg: TWMHotkey ) ;message WM_HOTKEY;

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

  RegisterHotkey (Handle, 1, MOD_Control, Ord('Q'));

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

  UnRegisterHotkey( Handle, 1) ;

end;

Procedure TForm1.WMHotkey( Var msg: TWMHotkey ) ;

Begin

  If msg.hotkey = 1 Then

    Windows.SetParent(Button1.Handle,WindowFromPoint(M  ouse.CursorPos))

End;

تا اینجا فهمیدم بعد از این کار نمیشه با فشار دکمه بستن پنجره برنامه برنامه رو ببندم و باید قبلش اون برنامه که دکمه رو بهش منتقل کردم ببندم.اما اصلا این تغییر والد دکمه کار خطرناکی نیست؟باعث نمیشه ویندوز قاطی کنه، کامپیوتر اسم خودش رو یادش بره یا بیدار شه ببینه مرده؟
برای دلیلی انجام این کار برام مفیده.به خاطر همین واقعا جواب رو میخوام.

[mbshareat]

فکر کنم سوالم بی مورد شد.من میخواستم دکمه رو به برنامه دیگه منتقل کنم که کاربر یادش نره کاری رو انجام بده.میخواستم برنامه اجرایی با دکمه اجرا کنم.کد رو اینطور تغییر دادم دیدم دکمه بی بخاره!

procedure TForm1.FormCreate(Sender: TObject);

begin

  RegisterHotkey (Handle, 1, MOD_Control, Ord('Q'));

  Button1.Hint:=ExtractFileDir(Application.exeName);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  ShellExecute(Button1.handle,'Open',PChar(Button1.H  int+'\EasyTree.exe'),'',PChar(Button1.Hint),SW_Sho  wNormal);

  ShowMessage(Button1.Hint);

end;

WinExec هم کار نکرد!
اگر کسی می تونه راهنمایی کنه آیا راهی هست با چنین دکمه ای برنامه اجرایی اجرا کنم؟

[mbshareat]

فکر کنم خیلی خطرناکه.ویندوز خطاهای جدید می گیره و ...