Printable View
سلام دوستان عزيزم
من مي خوام چند تا فايل رو توي كامپيوتر كپي كنيم و بر اساس كپي هر فايل پروگرس هم جلو بره.
حالا مي خوام ببينم چجوري ميشه تشخيص داد كه فايلي كه مي خوايم كپي كنيم، كپي شده تا بر اساس اون پروگرس جلو بره؟
در واقع من مي خوام يك Setup اختصاصي درست كنم.
راستي كسي كد ريجستري كه نشون بده برنامه در كامپيوتر نصب شده و اون رو در ليست Add Remove... قرار بده رو داره؟
ممنون مي شم كمكم كنيد.
موفق باشين
باي
سلام
براي نشان دادن پروگرس بار بايد ابتدا تعداد كل فايلها را بدست بياوريد و تك تك شروع به كپي كردن كنيد، اگر عمل كپي درست بود پروگرس جلو برود و ...
مثال :
کد:type
TProgressForm = class(TForm)
AbortButton: TButton;
ProgressBar: TProgressBar;
procedure AbortButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
FCancel: BOOL;
end;
{form has fsStayOnTop formstyle!}
implementation
{$R *.DFM}
procedure TProgressForm.AbortButtonClick(Sender: TObject);
begin
FCancel := True;
end;
{Note: could use int64 instead of COMP, but that would make this D4 specific}
function CopyCallback(TotalFileSize, TotalBytesTransferred, StreamSize,
StreamBytesTransferred: COMP; dwStreamNumber, dwCallbackReason: DWORD;
hSourceFile, hDestinationFile: THandle; progressform: TProgressForm): DWORD; stdcall;
var
newpos: Integer;
begin
Result := PROCESS_CONTINUE;
if dwCallbackReason = CALLBACK_CHUNK_FINISHED then
begin
newpos := Round(TotalBytesTransferred / TotalFileSize * 100);
with progressform.Progressbar do
if newpos <> Position then
Position := newpos;
Application.ProcessMessages;
end;
end;
function DoFilecopy(const source, target: string): Boolean;
var
progressform: TProgressForm;
begin
progressform := TProgressform.Create;
try
progressform.Show;
Application.ProcessMessages;
Result := CopyFileEx(PChar(source), PChar(target), @CopyCallback,
Pointer(progressform), @progressform.FCancel, 0);
finally
progressform.Hide;
progressform.free;
end;
end;
براي ايجاد Uninstall هم ميتونيد از اين روال استفاده كنيد :
کد:procedure CreateUnInstall(InstallPath,ExeName,IconName : String);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.CreateKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\_YOUR_APP_NAME_');
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\_YOUR_APP_NAME_',False);
Reg.WriteString('DisplayName','_YOUR_APP_NAME_');
Reg.WriteString('UninstallString',InstallPath+'\UnInstall.exe');
Reg.WriteString('DisplayIcon',InstallPath+'\_YOUR_MAIN_EXE.exe');
Reg.WriteString('DisplayVersion','1.0');
Reg.WriteString('InstallLocation',InstallPath);
Reg.WriteString('Publisher','_PUB_NAME_');
Reg.WriteString('Comments','Produced By : _YOUR_COMPANY_NAME_,_DATE_');
Reg.Free;
end;
سلام نانفورس جان ( با يانگوم جان اشتباه نشه. اگه بدتون مياد ديگه نمي گم)
راستش اين كدي كه نوشتين رو به برنامم وارد كردم ولي اشكال ميگره. از اين خط:
هنوز ارور داره ولي هنوز از اين يكي نگذشتم كه به بقيش برسم. اشكالش براي چيه؟ ميگه عبارت PROCRESS_CONTINUE; تعريف نشده.کد:Result := PROCESS_CONTINUE;
مي دونين من تعداد فايل رو مي دونم. دلفي هيچ تابعي نداره كه نشون بده فايل ما با موفقيت كپي شده يا نه؟ به نظر من اينجوري راحتتره كه ما مقدار Max رو براي پروگرس، تعداد فايل بزاريم و هر فايلي كه كپي اون با موفقيت انجام شده پروگرس به اندازه يك واحد فايل جلو بره.
راستش من از اين دستورات كه دادين خيلي سر در نمي يارم فقط مجبورم كه كپيشون كنم.
ممنون از كمكتون
موفق باشين
باي
:10:
نانفورس جان كجايي جان برادر. ما رو تنها نزار. جواب ندادي. كسي نيست
سلامنقل قول:
از اين استفاده كنيد :
کد:http://www.torry.net/vcl/filedrv/files/filecpy.zip
نانفورس عزيز سلام
اين فايلي كه دادين كه 180 درجه با ايني كه من گفتين فرق فوكوله؟
ولي به هر حال تنكس وري ماچچچچچچچچچچچچچچچچچچچچچچچ چچچچچچ.
موفق باشين
باي:11::11::11::40:
سلامنقل قول:
چيزي كه توي توضيحش نوشته اينه كه براي كپي فايل / فولدر است با پروگرس. حالا چطور 180 درجه (10-20 درجه شايد) با درخواست شما فرق مي كنه؟!
:31:سلام
اشتباه نشه. پستم رو چك نكرده بودم چي نوشتم. منظورم اين بود كه با اون دستوري كه اول داده بودين فرق مي كنه نه اينكه اوني كه من مي خوام نيست.
تنكس و باي
من سورس ارائه شده رو نخوندم اما از كامنت ها فهميدم كه براي نمايش پراگرس ملاك رو تعداد فايل ها مي گيريد. فكر كنم اگر ملاك پيشرفت سايز كپي شده نسبت به سايز كل فايل ها باشه، هم قشنگتره و هم حرفه اي تر.
اگه سورس اينطوري دم دست نداريد بهم بگيد كه من قبلنا يكي نوشتم فقط بايد پيداش كنم
سلام
آره حامد جان. اگه مي توني حتما سرسش رو برام بزار. خيلي ازت ممنون ميشم.