如何生成另一可執行文件? |
|
答題得分者是：wameng
|
|
takdick
一般會員   發表：50 回覆：63 積分：22 註冊：2002-08-05 發送簡訊給我 |
|
|
wameng
版主  發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
|
|
pceyes
尊榮會員 發表：70 回覆：657 積分：1140 註冊：2003-03-13 發送簡訊給我 |
試試exemod
http://delphi.ktop.com.tw/topic.php?topic_id=36294 努力會更接近成功
------
努力會更接近成功 |
|
takdick
一般會員 發表：50 回覆：63 積分：22 註冊：2002-08-05 發送簡訊給我 |
我有一自生成執行文件的源碼如下:
procedure TForm1.button1Click(Sender: TObject);
var fme:TMemoryStream;
clf:TfileStream;
size:integer;
stf:string;
begin
stf:=ExtractFilePath(Paramstr(0)) 'test.exe';
if fileexists(stf) then deletefile(stf);
fme:=TMemoryStream.Create;
clf:=Tfilestream.Create(application.ExeName,fmShareDenyNone);
try
clf.Seek(-sizeof(size),soFromEnd);
clf.ReadBuffer(size,sizeof(size));
clf.Seek(-size,soFromEnd);
fme.CopyFrom(clf,size-sizeof(size));
fme.SaveToFile(stf);
finally
fme.Free;
clf.Free;
end; procedure TForm1.button2Click(Sender: TObject);
VAR f:TEXTfile;
st:string;
F1,F2:TFileStream;
i,SS:integer;
st:string;
begin
assignfile(f,ExtractFileDir(Application.Exename) '\st.txt');
st:=edit1.Text '>>>' edit2.Text '>>>' edit3.Text '>>>';
rewrite(f);
writeln(f,st);
closefile(f);
st:=ExtractFileDir(Application.Exename) '\st.txt';
F1:=TfileStream.Create(ExtractFileDir(Application.Exename) '\test.exe',fmOpenWrite);
F2:=TfileStream.Create(st,fmOpenRead);
try
F1.Seek(0,soFromEnd);
F1.CopyFrom(F2,0);
SS:=F2.Size sizeof(SS);
F1.WriteBuffer(SS,sizeof(SS));
application.MessageBox ('程序已生成');
finally
F1.Free;
F2.Free;
deletefile(st);
end;
end;
我知道button1是調用源執行文件,請問這段程序放在哪裡,我找不到呀,它是如何加入到程序裡的? 發表人 - takdick 於 2005/06/23 15:06:17
|
發表時間：2005-06-21 19:11:54
IP:219.77.xxx.xxx 未訂閱
系統時間：2024-04-19 23:26:01
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |