Bueno, soy Matabarras xD, uso delphi7 . y bueno
Estaba desarrollando un código que lo que hacia era bajar un archivo de nuestro ftp a nuestro ordenador este es el código que hice:
Código Delphi
[-]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdFTP, IdComponent, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
FTP: TidFTP;
Descargar : String;
Padescargar : String;
begin
FTP := TIdFTP.Create ( nil );
FTP.Username := 'aquimiusuario';
FTP.Password := 'mipass';
FTP.Host := 'mihost';
try
FTP.Connect;
except
raise Exception.Create ( ' Introduce bien los datós del FTP ' ) ;
end;
FTP.ChangeDir('/holoscripter/');
Descargar := 'a.exe';
Padescargar := 'a.exe';
FTP.Get( Descargar , ExtractFilename(Padescargar), False );
FTP.Disconnect;
FTP.Free;
end;
end.
Vale tengo dos problemas, 1 que ponga en lo que ponga si pongo 'C:\a.exe'; en la 1 variable o en la 2 , con el operador = , el archivo sigue bajandose en la misma carpeta donde esta el programa entoncés eso me dificulta a hacer, que si después de bajarselo como hago que se ejecute la cmd sola y se abra el a.exe de la carpeta.
Esa seria una solución
Otra solución seria que me corrigerais para que fuera a un directorio , y me dijerais como llamar a la cmd en vb6 era Call Shell , pero en delphi ni idea, para que la llamara y ejecutara el código de xx ruta.
Gracias de antemano