کپی یک فولدر از سی دی به هارد و تشخیص اتوماتیک درایو سی دی

[alireza_63]

سلام ...

چه راهی جهت کپی یک فولدر از سی دی رام به یک فولدر در هارد به همراه Progress وجود داره ؟

در حالتی که خود برنامه بتونه درایو سی دی رام رو تشخیص بده ....

ممنون میشم از راهنمایی تون .

[nasr]

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs,shellapi, StdCtrls, WinSkinData;



type

  TForm1 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Label2: TLabel;

    Button2: TButton;

    Edit1: TEdit;

    Button4: TButton;

    SkinData1: TSkinData;

    Label3: TLabel;

    Button3: TButton;

    OpenDialog1: TOpenDialog;

    procedure Button1Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  ch: Char;

  s: string;



implementation



{$R *.dfm}



// ˜í ÏÇíј&am  p;Ecirc;æÑí

procedure CopyFolder(SrcFolder, DstFolder : String);

var

  SearchRec : TSearchRec;

  Src, Dst     : String;



begin

  Src := IncludeTrailingBackslash(SrcFolder);

  Dst := IncludeTrailingBackslash(DstFolder);

  ForceDirectories(Dst);



  if FindFirst(Src + '*.*', faAnyFile, SearchRec) = 0 then

    try

      repeat

        with SearchRec do

          if (Name <> '.') and (Name <> '..') then

            if (Attr and faDirectory) > 0 then

              CopyFolder(Src + Name, Dst + Name)

            else

              CopyFile(Pchar(Src + Name), PChar(Dst + Name), True);

      until FindNext(SearchRec) <> 0;

    finally

      FindClose(SearchRec);

    end ;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

 Button4.Visible := true;

 Edit1.Visible := true;

 Label3.Visible := true;

end;



procedure TForm1.Button4Click(Sender: TObject);

// íÏÇ ˜ÑÏä Óí Ïí ÑÇã

var

 a : string;

begin

  for ch := 'D' to 'Z' do

  begin

    s := ch + ':\';

    if GetDriveType(PChar(s)) = DRIVE_CDROM then begin

       a := s  ;

        CopyFolder(a  ,Edit1.Text + 'MultiMedia');

    end;

  end;

  close;



end;



end.

[alireza_63]

سلام به شما دوست عزیز

و تشکر از لطفتون ...

2 تا مشکل وجود داره :

1. WinSkinData رو پیدا نمیکنه ...
2. در مورد نوار Progress توضیحی نفرمودید ...

ممنونم از توجهتون .

[nasr]

سلام

WinSkinData که کامپوننت VCLSkin است که من استفاده کرده ام شما می تونید حذفش کنید

دومیش را نمی دونم