(Resolvido) Ajuda em Aplicativo

[windpanda]

Pessoal seguinte sou iniciante neste linguagem Delphi queria criar um aplicativo que agise da seguinte forma:

1 - Copia um arquivo de uma unidade para outra se a data de origem for maior que a de destino.

2 - Como o arquivo tem a extensão arquivo.zip devido ao seu tamanho de 50 mb se ele realizar a 1º opção ou seja se ele copiar o arquivo ele terá que realizar a extração do .zip deixando ficando arquivo.exe e depois iniciar o arquivo.exe

3 - Se as data forem iguais apenas iniciar o arquivo.exe

4 - Não sei se tem como mas creio que sim, utilizar arquivo .ini para declarar as variáveis onde conterá o caminho de origem e destino dos arquivos.

já criei o seguinte base

unit Tasy;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Inifiles, Gauges, StdCtrls, Win95, ExtCtrls;

type

TForm1 = class(TForm)

visitas: TLabel;

barraprogresso: TGauge;

destino: TLabel;

origem: TLabel;

Bevel1: TBevel;

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);

var

Ini: TIniFile;

Caminho1: String;

Caminho2: String;

begin

Ini := TIniFile.Create('C:\conf_atualiza.ini');

Ini.WriteString('Atualizar', 'Origem', 'Inserir Caminho de Origem');

Ini.WriteString('Atualizar', 'Destino', 'Inserir Caminho de DEstino');

Caminho1 := Ini.ReadString('Atualiza','Origem','');

Caminho2 := Ini.ReadString('Atualiza','Destino','');

Origem.Caption := 'De: ' +(Caminho1);

Destino.Caption := 'Para: ' + Caminho2;

Ini.Free;

end;

end.

mas empaquei aiiiii .... alguém poderia me dar uma força de como criar este aplictivo...???

[Jhonas]

Veja este post

http://scriptbrasil.com.br/forum/index.php...st&p=500291

abraço

[windpanda]

VLw dei uma olhada meio por cima mas isso ira me ajudar muito vlw mesmo