Uses

Shellapi

 

یک Button روی فرم بذار و در رویداد کلیک مربو ط به کلید بنویس:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

ShellExecute (HWND(nil), 'open', 'taskmgr', '', '', SW_SHOWNORMAL);

end;

 

 

موفق و  سربلند باشید

 

************************************************************************************