كيفية تحديد المسار

[mami39]

السلام عليكم

كيفية تحديد مسار ملف او قرص من داخل الجهاز وعمل فحص للملفات المتواجدة داخله

milie_xp: شكرااااااااااا milie_xp:

[bibill]

و عليكم السلام و رحمة الله و بركاته

يا أخي توجد كائنات win جاهزة للتعامل مع الملفات

وضح ادا كنت تريدها برمجيا ؟؟

[bibill]

جرب هدا

Chemin is Var//

Chemin := ExtractFilePath(Application.ExeName)

[kachwahed]

وعليكم السلام ورحمة الله وبركاته

PHP كود :

uses
  FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  //New Style
  if SelectDirectory('Select a directory', '', Dir) then
    Dialogs.MessageDlg(Dir, mtInformation, mbOKCancel, 0);
    ...
  //95 Style
  if SelectDirectory(Dir, [sdPerformCreate, sdAllowCreate, sdPrompt], 0) then
    Dialogs.MessageDlg(Dir, mtInformation, mbOKCancel, 0);
end; 


لا تنسونا من دعائكم
بالتوفيق.

[kachwahed]

وعليكم السلام ورحمة الله وبركاته

PHP كود :

uses
  FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  //New Style
  if SelectDirectory('Select a directory', '', Dir) then
    Dialogs.MessageDlg(Dir, mtInformation, mbOKCancel, 0);
    ...
  //95 Style
  if SelectDirectory(Dir, [sdPerformCreate, sdAllowCreate, sdPrompt], 0) then
    Dialogs.MessageDlg(Dir, mtInformation, mbOKCancel, 0);
end; 


لا تنسونا من دعائكم
بالتوفيق.