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

[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