كيف يتم فتح ملف وورد محمي بكلمة مرور

[nacer335]

السلام عليكم
كيف يتم فتح ملف وورد محمي بكلمة مرور
وشكرا

[ThePrince]

كيف يتم فتح ملف وورد محمي بكلمة مرور

سؤالك خارج عن نطاق المنتدى وجوابة يتعلق بالهندسة العكسية

[nacer335]

القصد من السؤال أخي هو فتح ملف word محمي بكلمة مرور بدلفي
وشكرا

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
جرب:

كود :

procedure TForm1.Button1Click(Sender: TObject); var range: Variant; FileName, Password: OLEVariant; begin try Word := GetActiveOleObject('Word.Application'); except Word := CreateOleObject('Word.Application'); end; FileName := 'C:\temp\t2.doc'; Password := 'thepass'; //open the doc Word.Documents.Open (FileName, EmptyParam, EmptyParam, EmptyParam, Password, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); //copy the contents range := Word.ActiveDocument.Content; range.Select; range.Copy; //paste it into the OleContainer OleContainer1.CreateObject('Word.Document.8',False); OleContainer1.Paste; OleContainer1.DoVerb (ovPrimary); end;

المصدر:

كود :

http://www.delphigroups.info/2/10/943605.html