Progress Bar کپی فایل

[hedi]

با سلام خدمت دوستان عزیز
می خواستم ببینم کسی می تونه از Progress bar ویندوز که برای Copy ,Paste استفاده می شود دردلفی استفاده کنه .
با تشکر

[SYNDROME]

با سلام خدمت دوستان عزیز
می خواستم ببینم کسی می تونه از Progress bar ویندوز که برای Copy ,Paste استفاده می شود دردلفی استفاده کنه .
با تشکر
دقیقا برای چه کاری می خواهید؟
اگر می خواهید در هنگام کپی اطلاعات استفاده کنید که خودتات می توانید درست کنید.
موفق باشید

[dkhatibi]

مطمئنا در سایت یم نمونه در این مورد می یابید فکر کنم در قسمت سورس برنامه های کاربردی بود.

[hedi]

دوستان عزیز
آن هایی را که در سایت بود دیدم مشکلاتی را دارند که من اگر بخواهم وارد مسائل جزئیاتی آن ها شوم باید دو صفحه توضیح بدم اما کپی ویندوز چون یک پنجره استاندارد است تمام آن جزئیات را رعایت کرده بود من در NetFrameWork. این کار را کردم اما این رویه و دیالوگ مخصوص فایل های این مجموعه است و از Import.System.Microsoft.Filio است می توانید برید و ببینید که راحت برای کپی فایل و دایرکتوری و هر چیز دیگری راحت می توانید از پنجره کپی ویندوز استفاده کنید حالا اگر اساتید می توانند کمکی کنند راه حلی بیاندیشند

[Hamid_PaK]

uses
ShellApi;

function CopyDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end;


function MoveDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_MOVE;
fFlags := FOF_FILESONLY;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end;

function DelDir(dir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(dir + #0);
end;
Result := (0 = ShFileOperation(fos));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if CopyDir('d:\download', 'e:\') = True then
ShowMessage('Directory copied.');
end;

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

یا حق ...

[hedi]

خیلی ممنون استفاده کردم اما می خواستم بدانم آیا می توان در پنجره بازشده دکمه Cancel یا ضربدر آن را هم غیر فعال کرد

[dkhatibi]

اما می خواستم بدانم آیا می توان در پنجره بازشده دکمه Cancel یا ضربدر آن را هم غیر فعال کرد
مگه فعل نیست؟
دقیقا مثل عمل کپی شدن تو ویندوزه.

[hedi]

نه ببین می خواستم ببینم که در همین پنجره کپی باز شده خودم با کد نویسی یا اگر در رجیستری کلیدی در این مورد است آن را به گونه ای تغییر دهم که دکمه Cancel آن را هم غیر فعال کنم و همچنین ضربدر آن را