引言: 不好意思...還是看不懂...可以詳細說明一下使用方法嗎

引言: 傳遞 Hot_key 只是為了要那個被開啟的程式可以直接執行某個動作.不用再下一次command...希望這麼說你可以理解... 請問一下有方法嗎

    hjlin您好:
請參考
【問題】如何觸發另一個程式中某個按鈕OnClick的事件? 
http://delphi.ktop.com.tw/topic.php?topic_id=30660    【問題】兩個project間的物件如何互用?
http://delphi.ktop.com.tw/topic.php?topic_id=46893    如何建立一個 Event通知其它人呢?
http://debut.cis.nctu.edu.tw/~ching/Doc/Tech/[BCB] 05 如何建立一個 Event通知其它人.htm    如果您只是純粹用Shellexecute API傳遞參數
ShellExecute(NULL,"open","MyNotePad.exe","c:\\cbuilder5\\readme.txt","",SW_SHOWDEFAULT);    在你的MyNotePad.exe AP中可以用ParamStr()取得"c:\\cbuilder5\\readme.txt"
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   for(int i=1; i<=ParamCount(); i  )
   {
      ShowMessage(ParamStr(i));
   }
}    

/*生活是一種藝術,用心生活才能享受生活*/

透過CreateProcess API啟動Notepad,並修改Notepad視窗標題

//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
BOOL CALLBACK EnumThreadWndProc(HWND hwnd, LPARAM lParam)
{
    // set window caption associated with the specified process
    ::SetWindowText(hwnd, "CaptionChanged");
    return TRUE;
}    //---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
 // inherit current process's startup info
    STARTUPINFO startupInfo;
    ::GetStartupInfo(&startupInfo);        // run another application and get its process id
    PROCESS_INFORMATION processInformation;
    ::CreateProcess(
        NULL,                                   // name of executable module
        "c:\\winnt\\notepad.exe",               // command line string
        NULL,                                   // lpProcessAttributes
        NULL,                                   // pThreadAttributes
        TRUE,                                   // bInheritHandle
        CREATE_BREAKAWAY_FROM_JOB,              // dwCreationFlags
        NULL,                                   // lpEnvironment
        NULL,                                   // lpCurrentDirectory
        &startupInfo,                           // lpStartupInfo
        &processInformation                     // lpProcessInformation
    );        // we must wait until initialization is completed,
    //  otherwise, the process may not have time to create window.
    ::WaitForInputIdle(processInformation.hProcess, INFINITE);
    ::EnumThreadWindows(processInformation.dwThreadId, (int (__stdcall *)())EnumThreadWndProc, (LPARAM)this);    }
//---------------------------------------------------------------------------    

/*生活是一種藝術,用心生活才能享受生活*/