فکر کنم سوالم بی مورد شد.من میخواستم دکمه رو به برنامه دیگه منتقل کنم که کاربر یادش نره کاری رو انجام بده.میخواستم برنامه اجرایی با دکمه اجرا کنم.کد رو اینطور تغییر دادم دیدم دکمه بی بخاره!
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 هم کار نکرد!
اگر کسی می تونه راهنمایی کنه آیا راهی هست با چنین دکمه ای برنامه اجرایی اجرا کنم؟