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

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;