图片捆绑机(简单的捆绑，不执行EXE)

最新推荐文章于 2025-05-15 20:30:22 发布

rryr2

最新推荐文章于 2025-05-15 20:30:22 发布

阅读量2.8k

点赞数

CC 4.0 BY-SA版权

分类专栏：我的程序文章标签： exe cmd string path

本文链接：https://blog.youkuaiyun.com/rryr2/article/details/4634290

我的程序专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个简单的Delphi程序实例，通过该程序可以实现文件路径的选取、字符串替换及利用DOS命令进行文件合并的功能。具体步骤包括使用文件对话框选择文件，将文件路径显示在编辑框中，并通过替换字符串来修正路径格式，最后调用DOS命令完成文件的合并。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.Button1Click(Sender: TObject);
var
name,path : string;
begin
if bmpFileOpen.Execute then
begin
    edit1.Text :=extractfiledir(bmpFileOpen.FileName)+ '/'+extractfilename(bmpFileOpen.FileName);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if addFileopen.Execute then
begin
    edit2.Text :=extractfiledir(addFileopen.FileName)+'/'+ extractfilename(addFileopen.FileName);
   end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:=StringReplace(edit1.Text,' ','#32',[rfReplaceAll]);
edit2.Text:=StringReplace(edit2.Text,' ','#32',[rfReplaceAll]);
RunDOS('copy /b '+edit1.Text+'+'+edit2.Text +' ' +edit3.text);
end;

function TForm1.RunDOS(const CommandLine: String):String;
var
Hand:THandle;
begin
    ShellExecute(Handle,nil,'cmd.exe',pchar('/k '+CommandLine),nil,SW_show);//把cmd窗口隐藏
   // Hand:=FindWindow('ConsoleWindowClass',nil);//找CMD句柄
    //if Hand>0 then//如果找到句
      //SendMessage(Hand,WM_CLOSE,0,0);//关闭隐藏的CMD窗口

end;