Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Ajuda em Aplicativo


windpanda

Pergunta

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...