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.):
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);
Código:
If OpenDialog1.Execute Then Edit1.Text := OpenDialog1.FileName;
Código:
If OpenDialog1.Execute Then Edit1.Text := OpenDialog1.FileName;
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.
0 comentários:
Postar um comentário