چی جوری میشه توسط دلفی حضور یک فایل رو چک کرد؟

مثلا میخوام چک کنه اگه یه فایل تو شاخه سیستم نبود برنامه اجرا نشه
پیشاپیش ممنون

برای چک کردن وجود یک فایل از دستور fileexist استفاده می کنید.
اگه کمک دیگه می خواستی بگو.
به امید دیدار.

کد:

---

if FileExists('C:\shayan_p30.txt') then ShowMessage('hast');

---

اين دستور اگه فايل shayan_p30.txt رو در درايو سي پيدا كنه پيغام ميده هست.:biggrin:

ممنون ولي خودم از اين تابع استفاده ميكردم
ولي ميخواستم بدونم چي جوري ميشه تو شاخه سيستم ويندوز رو چك كنه؟
چون ممنكنه يكي ويندوز رو تو درايو D نصب كنه يكي تو C يكي اسم شاخه ويندوز رو Windows بنويسه يكي WinXP
اسم تابعش GetSystemDirectory است ولي بلد نيستم ازش استفاده كنم

کد:

---

var
 a:array[0..255]of char;
begin
 GetWindowsDirectory(a,MAX_PATH);

---

نقل قول:

---

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

ممنون ولي خودم از اين تابع استفاده ميكردم
ولي ميخواستم بدونم چي جوري ميشه تو شاخه سيستم ويندوز رو چك كنه؟
چون ممنكنه يكي ويندوز رو تو درايو D نصب كنه يكي تو C يكي اسم شاخه ويندوز رو Windows بنويسه يكي WinXP
اسم تابعش GetSystemDirectory است ولي بلد نيستم ازش استفاده كنم

---

سلام
اگر برای چک کردن پوشه میخواهید. از این استفاده کن :

کد:

---

if DirectoryExists(const Directory: string) then showmessage('yes');

---

برای گرفتن مسیر ویندوز توی پست بعدی کامل توضیح میدم.
فعلآ بای

سلام مجدد.

این یک نمونه :

کد:

---

procedure Form1.Button1Click(Sender: TObject);
  var
    WinPath: array[0..MAX_PATH + 1] of char;
  begin
      GetWindowsDirectory(WinPath,MAX_PATH);
  end;

---

اینها هم نمونه های دیگه ای :

کد:

---

function GetWinDir: string;
var
  dir: array [0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(dir, MAX_PATH);
  Result := StrPas(dir);
end;

---

کد:

---

function WindowsDirectory: string;
var
  WinDir: PChar;
begin
  WinDir := StrAlloc(MAX_PATH);
  GetWindowsDirectory(WinDir, MAX_PATH);
  Result := string(WinDir);
  if Result[Length(Result)] <> '\' then
    Result := Result + '\';
  StrDispose(WinDir);
end;

---

کد:

---

function GetWindowsDirectory(var S: String): Boolean;
var
  Len: Integer;
begin
  Len := Windows.GetWindowsDirectory(nil, 0);
  if Len > 0 then
  begin
    SetLength(S, Len);
    Len := Windows.GetWindowsDirectory(PChar(S), Len);
    SetLength(S, Len);
    Result := Len > 0;
  end else
    Result := False;
end;

---

موفق باشید . بای

سوالت واضح نيست اگه ميشه بيشتر توضيح بده كه ميخواي چيكار كني؟

من ميخوام چك كنه كه اگه يه فايلي تو شاخه system يا ويندوز نبود برنامه اجرا نشه

ميشه بگيد چي جوري ميتونم دايركتوري ويندوز رو تو يه متغير String بريزه

200 نفر اومدن جواب دادن باز شما به جواب سوالت نرسیدی؟!!

نقل قول:

---

ميشه بگيد چي جوري ميتونم دايركتوري ويندوز رو تو يه متغير String بريزه

---

کد:

---

var
 a:array[0..255]of char;
 str:string;
begin
 GetWindowsDirectory(a,max_path);
 str:=string(a);
 showmessage(str);
end;

---

الان دایرکتوری ویندوز تو متغیر str قرار داره.

به جواب رسیدی؟!

من خودم جوابم رو گرفته بودم آخه از من پرسيد سوالت واضح نيست

ازتون ممنونم برنامه ام آماده شده بود فقط لنگ اين بودم

اگه ميشه مديران اين پست رو پاك كنن اشتباه شد

خدايي اين سوال واضحه:

نقل قول:

---

بدونم چي جوري ميشه تو شاخه سيستم ويندوز رو چك كنه؟
چون ممنكنه يكي ويندوز رو تو درايو D نصب كنه يكي تو C يكي اسم شاخه ويندوز رو Windows بنويسه يكي WinXP
اسم تابعش GetSystemDirectory است ولي بلد نيستم ازش استفاده كنم

---

در هر صورت من كه با كسي مشكل ندارم فقط سوال رو نفهميده بودم:blush: خوب جوابشم كه گرفتي.:biggrin:

اصولا من انشا و فارسيم ضعيفه پايين ترين نمره ام تو مدرسه همين فارسيه
براي همين جمله سازي ام مشكل داره