ايقونة لمجلد

السلام عليكم و رحمة الله و بركاته

منقول

procedure mycopy( SourceDir,BackupDir:string);
var
 Rec1: TSearchRec;
begin
CreateDir(BackupDir);
 if FindFirst(SourceDir +'*.*' , faAnyFile and not faDirectory, Rec1) = 0 then
 Repeat
    BEGIN
      CopyFile(PChar(SourceDir + Rec1.Name),
      PChar(BackupDir + Rec1.Name), False);
    END;
 until FindNext(Rec1) <> 0;

 if(FindFirst(SourceDir+'*.*',faDirectory,Rec1)=0)then
 Repeat
 begin
 if((Rec1.Name<>'.') and (Rec1.Name<>'..'))then 
// يفضل معالجه هذا الشرط بصوره اخرى
    mycopy(SourceDir+ Rec1.Name+ '\' ,BackupDir+ Rec1.Name+ '\' );
 end;
 until FindNext(Rec1) <> 0;
 FindClose(Rec1);
 end;
procedure TForm1.Button2Click(Sender: TObject);
begin
    mycopy( 'c:\mofareh\' ,  'g:\mofareh\' );
end;

و هذا كود اخر

uses
  ShellApi;

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;


function MoveDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_MOVE;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

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;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if CopyDir('d:\download', 'e:\') = True then
    ShowMessage('Directory copied.');
end;

راجع الرابط التالي

http://www.swissdelphicenter.ch/en/showcode.php?id=152

على كل الموضع طرح في المنتدى من فترة قريبة

بالنسبة للأيقونة فعلى ما أعلم لا تستطيع تغير أيقونة مجلد واحد فقط بدون استخدام ملفات ini

إذا وجدت طريقة لذلك أفدنا بها