Copiar arquivos no Delphi

{ - Coloque um Button no Form;
  - Altere o evento OnClick deste Button conforme abaixo: }

procedure TForm1.Button2Click(Sender: TObject);
var
  Origem, Destino: string;
begin
  Origem := 'c:\Origem\NomeArq.txt';
  Destino := 'c:\Destino\NomeArq.txt';
  if not CopyFile(PChar(Origem), PChar(Destino), true) then
    ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;

Consulte mais informação

Copiar arquivos usando curingas (*.*) no Delphi

{ - Coloque um Button no Form;
  - Altere o evento OnClick deste Button conforme abaixo: }

procedure TForm1.Button2Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
  Origem, Destino: string;
begin
  I := FindFirst('c:\Origem\*.*', faAnyFile, SR);
  while I = 0 do begin
    if (SR.Attr and faDirectory) <> faDirectory then begin
      Origem := 'c:\Origem\' + SR.Name;
      Destino := 'c:\Destino\' + SR.Name;
      if not CopyFile(PChar(Origem), PChar(Destino), true) then
        ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
    end;
    I := FindNext(SR);
  end;
end;

Consulte mais informação

Enviar um arquivo para a lixeira no Delphi

Inclua na seção uses: ShellApi

{ Coloque a procedure abaixo na seção implementation }

 Consulte mais informação

Copiar arquivos usando o Shell do Windows no Delphi

Inclua na seção uses: ShellApi

{ - Coloque um botão no form e altere o evento OnClick
    deste botão conforme abaixo: }
   
 Consulte mais informação

Formatar uma UNIDADE através de um programa no Delphi

{ Coloque o código abaixo imediatamente abaixo da palavra
  implementation: }

const
  SHFMT_ID_DEFAULT = $FFFF;

 Consulte mais informação

Saber quais as unidades de disco (drives) estão presentes no Delphi

Inclua na seção uses: Windows

{ A função abaixo retorna uma string contendo
  as letras de unidades de discos presentes. }

 Consulte mais informação

Alterar o nome de volume (Label) de um disco no Delphi

Inclua na seção uses: Windows

{ Da unidade C: }
SetVolumeLabel('c:\', 'NovoLabel');

{ Da unidade atual: }
SetVolumeLabel(nil, 'NovoLabel');

Consulte mais informação

Obter informações de um volume/disco (label, serial, sistema de arquivos, etc) no Delphi

Inclua na seção uses: Windows, System

{ - Coloque um memo (TMemo) no form;
  - Coloque um botão e escreve seu evento
    OnClick como abaixo: }

 Consulte mais informação

Obter o tipo de um drive (removível, fixo, CD-ROM, unidade de rede, etc) no Delphi

Inclua na seção uses: Windows, Dialogs

{ - Coloque um edit (Edit1) e um botão no form;
  - Altere o OnClick do botão conforme abaixo: }

 Consulte mais informação

Obter o espaço total e livre de um disco no Delphi

Inclua na seção uses: Windows

{ - Coloque um memo (TMemo) no form;
  - Coloque um botão e altere seu OnClick como abaixo: }

 Consulte mais informação

Obter os atributos de um arquivo/diretório no Delphi

Inclua na seção uses: Windows

{ No form:
  - Coloque um memo;
  - Coloque um edit;
  - Coloque um botão e escreva seu OnClick como abaixo: }

 Consulte mais informação

Executar um programa e aguardar sua finalização antes de continuar no Delphi

Inclua na seção uses: Windows

{ Esta função faz isto. }

function ExecAndWait(const FileName, Params: string;
  const WindowState: Word): boolean;
var
  SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: string;
begin
  { Coloca o nome do arquivo entre aspas. Isto é necessário devido
    aos espaços contidos em nomes longos }
  CmdLine := '"' + Filename + '"' + Params;
  FillChar(SUInfo, SizeOf(SUInfo), #0);
  with SUInfo do  begin
    cb := SizeOf(SUInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WindowState;
  end;
  Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
    PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);

 Consulte mais informação

Definir data/hora de um arquivo no Delphi

Inclua na seção uses: SysUtils

{ Esta função altera a data e hora de um arquivo. Se obter
  sucesso retorna true, caso contrário retorna false. }

 Consulte mais informação

Criar sub-diretório no diretório do EXE no Delphi

Inclua na seção uses: FileCtrl, SysUtils

Primeiramente vamos conhecer algumas funções do Delphi
que precisaremos usá-las:

 Consulte mais informação

Obter tamanho de um arquivo no Delphi

Inclua na seção uses: SysUtils

{ A função abaixo retorna o tamanho do arquivo, ou -1
  se o arquivo não for encontrado }

 Consulte mais informação