سورسهاي نمونه آموزشي

[mbshareat]

یه کد ساده برای استخراج فایلهای اجرایی همنام شاخه.
چند تا برنامه داشتم که روشون کار می کردم و فایلهای اجرایی نهایی رو به اشتراک میذاشتم.گفتم هر فایل رو دستی کپی نکنم

type

  TForm1 = class(TForm)

    DirectoryListBox1: TDirectoryListBox;

    ProgressBar1: TProgressBar;

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}





procedure TForm1.FormActivate(Sender: TObject);

var

  I:Word;

  A,D,S:String;

begin

  A:=ExtractFileDir(Application.exeName);

  DirectoryListBox1.Directory:=A;

  ProgressBar1.Max:=DirectoryListBox1.Count-DirectoryListBox1.ItemIndex;

  For I:=DirectoryListBox1.ItemIndex to DirectoryListBox1.Count-1 do

  Begin

    ProgressBar1.Position:=I;

    Refresh;

    D:=DirectoryListBox1.Items[I];

    DirectoryListBox1.ItemIndex:=I;

    if FileExists(A+'\'+D+'\'+D+'.exe')=true then

      CopyFile(PChar(A+'\'+D+'\'+D+'.exe'),PChar(A+'\'+D  +'.exe'),false);

  End;

  Application.Terminate;

end;