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.
Pergunta
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...???
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.