+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية فتح مجلد على ملف معين (/showthread.php?tid=4825)
كيفية فتح مجلد على ملف معين - you_per7 - 30-12-2012
السلام عليكم
هل توجد طريقة لفتح مجلد معين على ملف محدد؟
أفيدونا بارك الله فيكم
كيفية فتح مجلد على ملف معين - S.FATEH - 30-12-2012
لم افهم قصدك من فتح مجلد على ملف ؟؟؟ هل تريد فتح مجلد ام ماذا وضح اكثر من فضلك
كيفية فتح مجلد على ملف معين - Agmcz - 30-12-2012
السلام علبكم
كما قال الاخ S.FATEH
السؤال غير واضح !!!
إدا كنت تقصد فتح مجلد استعمل الدالة ShellExecute
كيفية فتح مجلد على ملف معين - you_per7 - 31-12-2012
شئ من هذا القبيل
كود :
procedure TMainForm.OpenFileLocationItemClick(Sender: TObject);
var
Param: String;
begin
if FoundFiles.Selected <> nil then
begin
with FoundFiles.Selected do
Param := Format('/n,/select,"%s%s"', [SubItems[0], Caption]);
ShellExecute(0, 'Open', 'explorer.exe', PChar(Param), nil, SW_NORMAL);
end;
end;هذا الأمر مستخرج من برنامج آخر...
حاولت محاكاته لكنني لم أتمكن من ذلك.
للتوضيح.... أود أفتح المجلد A على أن يتم تحديد الملف 1 ضمن هذا المجلد
كيفية فتح مجلد على ملف معين - S.FATEH - 31-12-2012
السلام عليكم
بعيدا عن استخدام Format مثال لفتح المجلد Test و تحديد الملف fateh.txt
فقط قم بتغيير المسار الى ما يناسبك
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
Param: string;
begin
Param := '/n,/select,' + '"' + 'c:\test\fateh.txt' + '"';
ShellExecute(0, 'Open', 'explorer.exe', PChar(Param), nil, SW_NORMAL);
end;
كيفية فتح مجلد على ملف معين - you_per7 - 31-12-2012
بارك الله فيك أخي الكريم
لقد نجحت العملية
هل يمكنك الشرح قليلا حتى نفهم تركيبة الكود
كيفية فتح مجلد على ملف معين - S.FATEH - 31-12-2012
ليس هناك ما أشرحه فقط explorer.exe يقبل برامترات تعامل معها !!!
كود :
http://support.microsoft.com/kb/314853