30-12-2012, 12:31 PM
30-12-2012, 05:22 PM
لم افهم قصدك من فتح مجلد على ملف ؟؟؟ هل تريد فتح مجلد ام ماذا وضح اكثر من فضلك
30-12-2012, 10:40 PM
السلام علبكم
كما قال الاخ S.FATEH
السؤال غير واضح !!!
إدا كنت تقصد فتح مجلد استعمل الدالة ShellExecute
كما قال الاخ S.FATEH
السؤال غير واضح !!!
إدا كنت تقصد فتح مجلد استعمل الدالة ShellExecute
31-12-2012, 10:19 AM
شئ من هذا القبيل
هذا الأمر مستخرج من برنامج آخر...
حاولت محاكاته لكنني لم أتمكن من ذلك.
للتوضيح.... أود أفتح المجلد A على أن يتم تحديد الملف 1 ضمن هذا المجلد
كود :
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 ضمن هذا المجلد
31-12-2012, 11:14 AM
السلام عليكم
بعيدا عن استخدام Format مثال لفتح المجلد Test و تحديد الملف fateh.txt
فقط قم بتغيير المسار الى ما يناسبك
سلامي
بعيدا عن استخدام 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;
31-12-2012, 12:39 PM
بارك الله فيك أخي الكريم
لقد نجحت العملية
هل يمكنك الشرح قليلا حتى نفهم تركيبة الكود
لقد نجحت العملية
هل يمكنك الشرح قليلا حتى نفهم تركيبة الكود
31-12-2012, 01:47 PM
ليس هناك ما أشرحه فقط explorer.exe يقبل برامترات تعامل معها !!!
كود :
http://support.microsoft.com/kb/314853