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 ضمن هذا المجلد