پيشرفت كار براي پروگرس- بدست اوردن مسير نصب ويندوز

دوستان عزيز سلام
3 تا سوال دارم
=========
سوال اول:
اگه بخوايم كه توي برنامه مسير نصب ويندوز را بدست بياريم بايد چي كار كنيم؟
=========
سوال دوم:
براي اينكه فايلي را از جايي به جاي ديگر كپي يا كات كنيم از چه دستوري بايد استفاده كنيم؟اگه ميشه يك كد نمونه بنويسيد.:11:
=========
سوال سوم:(اين يكي رو حتما اگه مي تونين جواب بدين. خيلي برام مهمه)
پروگرس يا همون خطي كه نمودار پيشرفت كار هست بر چه اساسي كار مي كنه. يعني تو برنامه بايد ميزان پيشرفت اين خط رو به چه چيزي نسبتش بديم.
ساده تر بگم (Position) اون بايد بر چه اساسي جلو بره.
بازم متشكر
:10:

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوستان عزيز سلام
3 تا سوال دارم
=========
سوال اول:
اگه بخوايم كه توي برنامه مسير نصب ويندوز را بدست بياريم بايد چي كار كنيم؟
=========
سوال دوم:
براي اينكه فايلي را از جايي به جاي ديگر كپي يا كات كنيم از چه دستوري بايد استفاده كنيم؟اگه ميشه يك كد نمونه بنويسيد.:11:
=========
سوال سوم:(اين يكي رو حتما اگه مي تونين جواب بدين. خيلي برام مهمه)
پروگرس يا همون خطي كه نمودار پيشرفت كار هست بر چه اساسي كار مي كنه. يعني تو برنامه بايد ميزان پيشرفت اين خط رو به چه چيزي نسبتش بديم.
ساده تر بگم (Position) اون بايد بر چه اساسي جلو بره.
بازم متشكر
:10:

---

سلام
جواب اول :
يكي از راهها :

کد:

---

var
 strTemp : PChar;
 strWinPath : String;

  GetMem(strTemp,MAX_PATH);
  GetWindowsDirectory(strTemp, MAX_PATH);
  strWinPath := IncludeTrailingPathDelimiter(StrPas(strTemp));

---

جواب دوم :

کد:

---

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;

---

جواب سوم :
با توجه به كار انجام شده!
مثلا قرار است 10 تا فايل را كپي كنيد. پس از كپي شدن هر فايل :

کد:

---

ProgressBar1.Position := ProgressBar1.Position + 10;

---

نقل قول:

---

پروگرس يا همون خطي كه نمودار پيشرفت كار هست بر چه اساسي كار مي كنه. يعني تو برنامه بايد ميزان پيشرفت اين خط رو به چه چيزي نسبتش بديم.
ساده تر بگم (Position) اون بايد بر چه اساسي جلو بره.

---

سلام
اساسس خاصي نداره بعضي ها الكي ميزارن و بعضي نرم افزار ها واسه اينكه زمان پوسسي كه انجام ميشود را محاسبه كرده با پروگرس به كاربر نمايش ميدهند.مثلا" براي بدست اوردن زمان اجراي يه دستور(مثلا" يه كوري) فاصله زماني رو ماسبه ميكنند بعد روي پروگرس نمايش ميدهند.
واسه كپي كردن فايل هم ميتوني از دستور CopyFile براحتي استفاده كني.