delphi 可以將 DLL 檔案設定為 RES 資源嗎 您可以直接在 RES 中註冊 DLL 嗎？

給你乙個想法：

1. 將dll檔案放入資源檔案中;

2.當程式執行時，將資源檔案中的dll釋放到已知目錄;

3.在系統中註冊DLL;

4.，程式將執行。

5. 當系統退出時，取消註冊後刪除 DLL。

我們先來談談如何製作exe。 res，例如，向其新增檔案。 然後當它執行時，判斷它是否在執行，是否存在，不存在就釋放它，如果它不執行就執行它。 （這就是你的意思，對吧？ ）

編譯時，在原始碼目錄下新建乙個 txt 檔案，並在其中寫入以下內容

crnexefile rc_data

然後將 txt 檔案重新命名為：，例如（此檔案應與此檔案一起）。

然後將其新增到專案中，然後單擊“編譯”將此檔案新增到其中。

生成，執行此檔案：

var rs:tresourcestream;

beginrs:=,'crnexefile','rc_data');

c:\');

winexec('c:\',sw_show);

end;確定此檔案是否存在：

if fileexists('c:\') then

showmessage('檔案存在') else

showmessage('檔案不存在');

判斷它是否正在執行的最佳方法是確定其程序是否存在：

新增 tlhelp32 使用;

function findprocess(afilename:string):boolean;

varhsnapshot:thandle;

lppe:tprocessentry32;

found:boolean;

beginresult:=false;

sizeof(tprocessentry32);

found:=process32first(hsnapshot,lppe);

while found do

beginif((uppercase(extractfilename( or (uppercase( )=uppercase(afilename)))then

beginresult:=true;

end;found:=process32next(hsnapshot,lppe);

end;end;

procedure : tobject);

beginif findprocess('')then

showmessage('執行') else

showmessage('沒跑')

end;這些是最簡單的**，您應該能夠理解它們。

您可以自行修改具體操作和實現。

哇，這正是我需要的，（*嘻嘻......，我很期待和你在一起，哦哦哦哦。

德爾福本身似乎不行，可以使用內建的圖片編輯器，但它不是可以做成word的核遊戲，但是改變銷量和使用資源構建器更強大，可以做很多其他格式的檔案巨集。

看看我的空間，有個函式是你自己寫的，對你很有幫助。

使用此函式的優點是您不必查詢檔案位址。

procedure change(resname,new,old,filename:string);

函式：change（resname，new，old，filename：string）;

輸入：資源名稱、新資料、修改的資料、儲存檔案的名稱。

var res:tresourcestream;

mem:tmemorystream;

buffer,buffer1:pchar;

i,j,size:integer;

edttexe:string

beginres:=,resname,rt_rcdata);

mem:= ;

size:=length(old)+1;

for i:=1 to do

i-1;size);

如果 buffer=old 那麼為什麼這裡只能有 15 個字元，16 個是錯誤的。

break;

end;j:= ;readbuffer 向後移動 16 位，它所在的位為 17 位

edttext:=trim(new);

buffer1:=pchar(edttext+stringofchar(#0,size-length(edttext)))

sofrombeginning);

size);

exe');

end;

將其封裝為 dll 或 axtion 並在程式中呼叫它，delphi 被打包到資源檔案中。