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

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

برای چک کردن وجود یک فایل از دستور 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 قرار داره.

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