البحث عن ملفات ورد Word ثم فتحها

هفوة بسيطة،

غير

ShellExecute(Handle,'open','winword',s,'',WS_MAXIMIZE);

الى

ShellExecute(0,nil,Pchar('winword'),Pchar(s),nil,SW_MAXIMIZE);

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

شكرا جزيلا

انا كتبتها من قبل لكن عند ما اعطاني خطا فقمت بمسحها

هنالك بعض الملفات تعطيني (خطا) رسالة صلاحية لا اعرف السبب

ليس هنالك اي صلاحية معطى للملف

جزاك الله كل خير

ربما يكون خطأ ما في مسار الملف

ملاحظة: لم اجرب المرفق

var
	WordApp: Variant;
begin
   WordApp := CreateOleObject('Word.Application');
   WordApp.Visible := True;
   WordApp.Documents.Open('filename');
end;

test_text.rar

شكرا جزيلا

هذا يعمل جيدا