請問在 DLL 中有辦法直接呼叫 exe 檔嗎

(當然先決條件是該 DLL 檔必須為某程式的插件)

dll載入時即成為母程式的function或procedure
它執行exe時就一如是母程式在執行外部程式一樣
所以如果有例外事件發生時，母程式一樣會受到遷連，不能排除在外的。
那怎會問dll能不能執行外部程式!

------
努力會更接近成功

那我應該要怎麼做 ?

我的意思是以外掛為主直接呼叫外部 exe 檔?

編輯記錄

===================引 用 edens 文 章===================
那我應該要怎麼做 ?
記得在書店看到一本書好像是C語言的入門書，書名好像是{如何不在電腦前發呆}，我看這篇回文看二次，也呆了二次；我想，您應該至少將您目前的程式碼列出(精簡過的，或有問題的部份，太多的內容，恐怕沒人有空去閱讀它)，如果能將它（例子）上傳至求助檔案上傳區，那更好了。
我的意思是以外掛為主直接呼叫外部 exe 檔?
外掛的方式為何，很難想像為何外掛不能直接呼叫外部exe檔!

------
努力會更接近成功

www.peid.info/BobSoft/Source/Blank.Plugin.Source.zip

function RunPlugin(hMainDlg: HWND; szFname: PChar) : String;
begin
// pass filename to plugin
// pass hwnd of PEiD, or PE-Tools, if useful to you
Target_Filename := szFname;
Caller_Handle := hMainDlg;

// Put your code here, and in Form1.create as usual

Form1 := TForm1.Create(Nil);
Try
Form1.ShowModal;
Finally
Form1.Free;
End;
// displayed in PEiD message box, where it would say packer name
result := 'Done :)';
end;

他預設是呼叫 form1 但是改成呼叫外部執行該怎做!

1. 移除FORM1
Project->Remove From Project...
選Unit1.pas->OK

2.
uses
Windows, ..................
// 以下是從UNIT1.PAS 拷備來的宣告
// -----------------------------------------------------------------------------------------
// The main procedure.. If you don't want a form, remove it here and replace
// with your code (and remove unit1 above)
//
// 主要程序.. 假如你不要使用表單, 移除它取代自
// 你的代碼(同時移除Unit1)
function RunPlugin(hMainDlg: HWND; szFname: PChar) : String;
begin
Target_Filename := szFname;
Caller_Handle := hMainDlg;
// 舊的代碼
// 新的代碼
// displayed in PEiD message box, where it would say packer name
result := 'Done :)';
end;

不能用,沒有反應...

試試這樣行不行
ShellExecute(0, 'open', pchar('notepad.exe'), nil, nil, SW_SHOWNORMAL);
若再不行，要Po出你的執行檔給我們看了，您之前的檔案只有Dll而已。

------
努力會更接近成功

編輯記錄

var
Target_Filename : String;
Caller_Handle : HWND;

function RunPlugin(hMainDlg: HWND; szFname: PChar) : String;
begin

// pass filename to plugin
// pass hwnd of PEiD, or PE-Tools, if useful to you
Target_Filename := szFname;
Caller_Handle := hMainDlg;
// Put your code here, and in Form1.create as usual
ShellExecute(0, PChar('open'),pchar('unpacker.exwe'),nil, nil, SW_SHOW);

// displayed in PEiD message box, where it would say packer name
result := 'Done';
end;

以上是代碼

執行檔在這下載
www.peid.info/download.html

不過只有畫面閃爍.....就沒有執行檔

延伸檔名好像不對吧!
會閃，就表示程式有反應了，改用筆記本notepad.exe或小算盤calc.exe試試看吧!
===================引 用 edens 文 章===================
var
Target_Filename : String;
Caller_Handle : HWND;

function RunPlugin(hMainDlg: HWND; szFname: PChar) : String;
begin

// pass filename to plugin
// pass hwnd of PEiD, or PE-Tools, if useful to you
Target_Filename := szFname;
Caller_Handle := hMainDlg;
// Put your code here, and in Form1.create as usual
ShellExecute(0, PChar('open'),pchar('unpacker.exwe'),nil, nil, SW_SHOW);

// displayed in PEiD message box, where it would say packer name
result := 'Done';
end;

以上是代碼

執行檔在這下載
www.peid.info/download.html

不過只有畫面閃爍.....就沒有執行檔

------
努力會更接近成功

編輯記錄

嗯,原來他程式本身有一個小 Bug,謝謝你了!

編輯記錄