delphi4arab منتديات دلفي للعرب

السلام عليكم ممكن مساعدة من فضلكم

[صورة: p_10831frtz1.jpg]

PHP كود :
procedure TSAVE.Button2Click(Sender: TObject);
var source,path1,PATH:string;
   hichsoft: longbool;
   i:integer;

begin
  path:=ExtractFilePath(Application.EXEName);
  i:=0;
  While i<5 do
   begin
     Path1:= label3.Caption+'\'+ListBox1.Items.Strings[i];
     Source:=path+ListBox1.Items.Strings[i];
     CopyFile(pchar( source),pchar( path1),hichsoft);
     i:=i+1;
     ProgressBar1.Position:= ProgressBar1.Position+1;
   end;
    ShowMessage('Sauvegarde Terminée..');
    ProgressBar1.Position:=0;
end;





procedure TSAVE.FormCreate(Sender: TObject);
begin
  ListBox1.Items[0]:='Client.db';
  ListBox1.Items[1]:='Client.mb';
  ListBox1.Items[2]:='Client.px'; 

السلام عليكم
مرحبا في منتدى دلفي للعرب
إختر عنوان مناسب لموضوعك
إختر القسم المناسب لموضوعك
راجع القوانين وشروط الكتابة كي لا تحذف مشاركتك

SOUFYANE2018

ferrero_100

S.FATEH