Bien, este codigo lo encontré buscando por el foro, y al ejecutarlo me da un error :S
Aquí el codigo:
Código Delphi
[-]procedure AddToStream(AFileName: TFileName);
var
fsOrigen,fsDestino: TFileStream;
begin
fsOrigen := TFileStream.Create(AFileName, fmOpenRead);
Try
fsDestino.CopyFrom(fsOrigen, fsOrigen.Size);
finally
fsOrigen.Free;
end;
end;
------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
fsDestino: TFileStream;
begin
fsDestino := TFileStream.Create('C:\MIEXE.EXE', fmCreate);
Try
AddToStream('C:\WINDOWS\SYSTEM32\CMD.EXE');
AddToStream('C:\WINDOWS\NOTEPAD.EXE');
finally
fsDestino.Free;
end;
WinExec('C:\MIEXE.EXE', SW_SHOW);
end;
El error es:
"Stream write error"
Alguna solución?