loo30fer
شنبه 04 دی 1389, 17:48 عصر
با سلام
من میخواستم هنگام کپی کردن فایل تو Progress درصد عملیات رو نشون بده و تو انجمنم هم هرچی گشتم چیزی پیدا نکردم و اگه امکان داره کدش رو به این کد Thread من اضافه کنید ممنون میشم
ببخشید یک سوال دیگه هم داشتم که آیا میشه برای عملیات کپی Pause و Stop هم تعریف کرد
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Gauges;
type
Thread1 = class(TThread)
private
i: integer;
protected
procedure mostra;
procedure Execute; override;
end;
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
Gauge1: TGauge;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure Thread1.mostra;
begin
end;
procedure Thread1.Execute;
begin
Synchronize(mostra);
CopyFile(PChar('C:\File.exe'),PChar('D:\File.exe') ,True);
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
t1: Thread1;
begin
t1 := Thread1.Create(True);
t1.Priority := tpNormal;
t1.Resume;
end;
end.
من میخواستم هنگام کپی کردن فایل تو Progress درصد عملیات رو نشون بده و تو انجمنم هم هرچی گشتم چیزی پیدا نکردم و اگه امکان داره کدش رو به این کد Thread من اضافه کنید ممنون میشم
ببخشید یک سوال دیگه هم داشتم که آیا میشه برای عملیات کپی Pause و Stop هم تعریف کرد
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Gauges;
type
Thread1 = class(TThread)
private
i: integer;
protected
procedure mostra;
procedure Execute; override;
end;
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
Gauge1: TGauge;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure Thread1.mostra;
begin
end;
procedure Thread1.Execute;
begin
Synchronize(mostra);
CopyFile(PChar('C:\File.exe'),PChar('D:\File.exe') ,True);
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
t1: Thread1;
begin
t1 := Thread1.Create(True);
t1.Priority := tpNormal;
t1.Resume;
end;
end.