[jonydread]

Mil gracias tenia la solucion ay mismo y no me habia dado cuenta

Código Delphi [-]
procedure Tform1.LlamarReg2inf(Hnd: THandle; const App:string; const Origen: string; const Destino: string);
begin
  ShellExecute(Hnd,
              'OPEN',
              PChar(ExtractFileName(App)),
              Pchar(Origen+' '+Destino),
              PChar(ExtractFilePath(App)),
              SW_HIDE);
end;

llamar LlamarReg2inf

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var sAppName, sAppnew : string;
begin
sAppName := Opendialog1.FileName;
sAppnew := ChangeFileExt(sAppName,'.inf');
 LlamarReg2inf(Handle,'REG2INF.EXE',Opendialog1.FileName,sAppnew );
end;