+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية تحديد المسار (/showthread.php?tid=3809)
كيفية تحديد المسار - mami39 - 21-01-2012
السلام عليكم
كيفية تحديد مسار ملف او قرص من داخل الجهاز وعمل فحص للملفات المتواجدة داخله
milie_xp: شكرااااااااااا milie_xp:
كيفية تحديد مسار ملف او قرص من داخل الجهاز وعمل فحص للملفات المتواجدة داخله
milie_xp: شكرااااااااااا milie_xp:كيفية تحديد المسار - bibill - 21-01-2012
و عليكم السلام و رحمة الله و بركاته
يا أخي توجد كائنات win جاهزة للتعامل مع الملفات
وضح ادا كنت تريدها برمجيا ؟؟
كيفية تحديد المسار - bibill - 21-01-2012
جرب هدا
Chemin is Var//
Chemin := ExtractFilePath(Application.ExeName)
كيفية تحديد المسار - kachwahed - 21-01-2012
وعليكم السلام ورحمة الله وبركاته
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 - 21-01-2012
وعليكم السلام ورحمة الله وبركاته
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;
بالتوفيق.