Error en codigo
 

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?

OK, ya lo solucioné poniendo la variable fsDestino como publica.

Saludos!

Esa es mi letra! :D
En el código original el procedimiento AddToStream pertenecía al procedimiento TForm1.Button1Click. Tu lo separaste y creaste una nueva variable "fsDestino" que nunca se crea. Si quieres mantenerlo separado podrías hacer algo como:

Código Delphi [-]
procedure AddToStream(AFileName: TFileName; fsDestino: TFileStream);
var
  fsOrigen: 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:\WINNT\SYSTEM32\CMD.EXE', fsDestino);
    AddToStream('C:\WINNT\NOTEPAD.EXE', fsDestino);
  finally
    fsDestino.Free;
  end;
  WinExec('C:\MIEXE.EXE', SW_SHOW);
end;

Saludos!

Me ganaste de mano, igualmente mi respuesta puede servirte para evitar el uso de variables públicas.

Saludos!

Jeje, igualmente gracias ;)
Y separé el codigo, porque me daba error si habia una procedure dentro de otra.

Saludos!

:confused: ¿Qué compilador estas usando?

Delphi 7 pero nunca me habia pasado eso :S

Teóricamente te debería funcionar el código original. Teniendo en cuenta que al procedimiento embebido solo lo puedes llamar dentro del procedimiento que lo contiene.

Hay alguna manera de ejecutar el segundo desde el primero? Ya sea separando el codigo o algo...

Bump*****************a