Tutorial Criando um programa de Backups em Delphi 7

[PHPInjection]

Galera, este programa a ser ensinado hoje serve para fazer Backups dos seus arquivos, ou seja, ele pega um arquivo da qual você escolheu, você escolhe o local a ser salvo e simples, clique num button para que seja feito o Backup.

O que você vai precisar:

3 Edits - Aba standard
3 Labels - Aba standard
1 Button - Aba standard
2 SpeedButton - Aba additional
1 OpenDialog - Aba Dialogs

Tutorial:

rganize de tal forma que um edit fique em baixo do outro, ou seja, o Edit2 embaixo do 1, o Edit3 embaixo do 2. Os speed buttons devem ficar um de cada lado de cada edit, ou seja, SpeedButton1 do lado do Edit1 e SpeedButton2 do lado do edit2. O Button principal deve ficar embaixo de tudo. Siga a imagem abaixo e organize da forma que preferir (Obs.: Renomeie o Label1 para: Programa a ser copiado. Renomeie a Label2 para: Pasta aonde ira copiar e o ultimo Label3 coloque para: Nome do arquivo.):



Após ter feito isso, renomeie e organize da sua forma, clique no Button1 e adicione o seguinte código (OBS.:Retire o primeiro BEGIN do Button1 e cole o código.):

var
Origem, Destino: string;
begin
If Edit1.Text = '' then
ShowMessage('Deve ser inserido um nome');
if MESSAGEBOX(Application.Handle, 'Deseja Fazer o Backup do Arquivo?', 'Por favor, confirme:', MB_ICONQUESTION + MB_YESNOCANCEL + MB_DEFBUTTON2) = ID_YES then
Origem := Edit1.Text;
Destino := Edit2.Text + '\' + Edit3.Text + '.BACK' ;
ShowMessage('Backup efetuado com sucesso.');
if not CopyFile(PChar(Origem), PChar(Destino), false) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);

Após isso clique no SpeedButton1 e adicione o seguinte código:

If OpenDialog1.Execute Then
Edit1.Text := OpenDialog1.FileName;

No SpeedButton2 adicione o seguinte código:

If OpenDialog1.Execute Then
Edit1.Text := OpenDialog1.FileName;

Tutorial de uso do programa:

Após ter concluído e salvo seu programa, clique no SpeedButton1 e escolha o arquivo no qual você quer copiar. Clique no SpeedButton2 e adicione o local aonde você quer que ele seja salvo, no Edit3 você escolhe um nome para ele, e clique no Button1 para fazer um backup.

Mas PHPInjection, se eu quiser eu posso dar Ctrl+C e Ctrl+V, pra que eu vou precisar disso?

Resposta:Isso é somente para estudo próprio, aprendizado e etc, e cá pra nós, até que é legal fazer algo no Delphi, mesmo que seja meio sem noção. E muitas pessoas podem a vir a ter problemas, e esses programas da quais achamos inúteis, ajudam muito em certas horas de desespero.