Repertoire := ExtractFilePath(Application.ExeName);

begin
  if not DirectoryExists('C:\temp') then
  if not CreateDir('C:\temp') then
    raise Exception.Create('Impossible de créer C:\temp');
end;

var
  Dir: string;
begin
  Dir := 'C:\APPS\SALES\LOCAL';
  if ForceDirectories(Dir) then
    Label1.Caption := Dir + ' a été créé'
end;

uses
  ShellApi;

function DelDir(Dir: String): Boolean;
var fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(Dir + #0);
  end;
  Result := (0=ShFileOperation(fos));
end;

RenameFile('c:\tmp\', 'c:\tmp2\');

begin
  if DirectoryExists('C:\MyDirectory\') then
    { le repertoire existe }
  else
    { le repertoire n'existe pas }
end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
  ChoixRepertoire : string; 
begin 
  If SelectDirectory('Choisissez le dossier d''installation','C:\TEMP\',ChoixRepertoire) 
    Then Label1.caption := ChoixRepertoire; 
end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
  ChoixRepertoire : string; 
begin 
  If SelectDirectory(ChoixRepertoire,[sdAllowCreate,sdPerformCreate,sdPrompt],0) 
    Then Label1.caption := ChoixRepertoire; 
end;

function SystemDirectory: String;
const
  dwLength: DWORD = 255;
var
  SystemDir: PChar;
begin
  GetMem(SystemDir, dwLength);
  GetSystemDirectory(SystemDir, dwLength);
  Result := String(SystemDir);
  FreeMem(SystemDir, dwLength);
end;

function WindowsDirectory: String;
const
  dwLength: DWORD = 255;
var
  WindowsDir: PChar;
begin
  GetMem(WindowsDir, dwLength);
  GetWindowsDirectory(WindowsDir, dwLength);
  Result := String(WindowsDir);
  FreeMem(WindowsDir, dwLength);
end;

uses Shlobj;

function SpecialFolder(Folder: Integer): String;
var
  SFolder : pItemIDList;
  SpecialPath : Array[0..MAX_PATH] Of Char;
begin
  SHGetSpecialFolderLocation(Form.Handle, Folder, SFolder);
  SHGetPathFromIDList(SFolder, SpecialPath);
  Result := StrPas(SpecialPath);
end;

{ Application : }
procedure TForm.MyButtonClick(Sender: TObject);
begin
  MyLabel.Caption := SpecialFolder(CSIDL_PERSONAL);
end;

function CopyFolder(FromFld, ToFld: string): boolean; 
var fos: TSHFileopStruct; 
begin 
// il faut supprimer les antislashs de fin sinon vous aurez droit à un message d'erreur 
  FromFld := ExcludeTrailingPathDelimiter(Trim(FromFld)); 
  ToFld := ExcludeTrailingPathDelimiter(Trim(ToFld)); 

  FillChar(fos, SizeOf(fos),0); 
  with fos do 
  begin 
    wFunc := FO_COPY; 
    pFrom := PChar(FromFld+#0); 
    pTo   := PChar(ToFld+#0); 
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR; 
  end; 
  Result := ShFileOperation(fos)=0; 
end; 

if CopyFolder('d:\Repertoire01', 'c:\Repertoire02')then 
     ShowMessage('Copie effectuée avec succès') else 
     ShowMessage('Copie non effectuée');