私は別のアプリケーションからshellExecuteを使ってアプリケーションを実行するとTResourceStreamが動作しない

Question

私は2人のアプリケーションが誰もが異なるタスクを実行しているので、最初のアプリケーションはshellExecuteを使って2番目のアプリケーションを実行します。

ShellExecute(Handle, nil, PChar('D:\Project2.exe'), nil, nil, SW_SHOWNORMAL); 
ShellExecute(Handle, nil, PChar('cmd.exe'), PChar('/C D:\Project2.exe'), nil, SW_SHOWNORMAL); 

第2のアプリケーションは、その内部に既に存在するリソースを抽出します。

問題は：最初のアプリケーションから2番目のアプリケーションを実行するとリソースが抽出されませんアプリケーションフォームが私に表示されますが、2番目を直接実行するとリソースが抽出されます。

CreateProcessとWinExecも試してみましたが、リソースも抽出されていません!!

編集： Project1のが

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ShellExecute(Handle, nil, PChar('D:\Project2.exe'), nil, nil, SW_SHOWNORMAL); 
end; 

のみオープンProject2のボタンを持っている、これは作成セクションでリソースを抽出する必要があり、のProject2コードです！

Answer 1

考えられる唯一の説得力のある説明は、最初のアプリケーションが2番目のアプリケーションが書き込もうとしているDLLを読み込んでいることです。実行可能ファイル（.exe、.dll、.ocxなど）がロードされると、そのファイルはロックされ、書き込めません。問題が解決された

Answer 2

、 私はShellExecuteを使用してpreject1からのProject2を開いた場合、GetCurrentDir関数はProject1のディレクトリがPROJECT2ない取得、Project2のディレクトリを取得するためにGetCurrentDirを使用!!!!

私はExtractFilePath(Application.ExeName) instedをGetCurrentDirと使用しています。

だから問題はTResourceStreamにありません、それはGetCurrentDirにあります！