نمایش نتایج 1 تا 4 از 4

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

  1. #1

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

    سلام ...

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

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

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

  2. #2
    کاربر دائمی آواتار nasr
    تاریخ عضویت
    آذر 1382
    محل زندگی
    هر کجا هستم باشم آسمان مال من است پنجره فکر هوا عشق زمین مال من است
    پست
    2,009
    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.

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

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

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

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

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

  4. #4
    کاربر دائمی آواتار nasr
    تاریخ عضویت
    آذر 1382
    محل زندگی
    هر کجا هستم باشم آسمان مال من است پنجره فکر هوا عشق زمین مال من است
    پست
    2,009
    سلام

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

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

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •