procedure TForm1.Button1Click(Sender: TObject); var cfichero:String; begin cfichero:='C:\WINDOWS\KODAKPRV.EXE '+Edit1.Text; WinExec(PChar(cfichero), SW_SHOW); end;