|
#1
|
|||
|
|||
shellListview
Привет опытные программисты у меня есть задачка плиз помогите!!! : Вообщем нужно из ShellListview через отбработчик событий Onmousedown или Dbclic, загрузить содержимое ворд файла на форму,т.е вывести в Memo, как это сделать плиз хелп!! а то слабовато разбираюсь в этом
|
#2
|
||||
|
||||
Цитата:
Код:
uses ..., ComObj; ..... procedure TForm1.Button1Click(Sender: TObject); var sf: TShellFolder; WordApp, WordDoc: OleVariant; begin sf := ShellListView1.SelectedFolder; if Assigned(sf) and not sf.IsFolder then begin WordApp := CreateOleObject('Word.Application'); try WordDoc := WordApp.Documents.Open(sf.PathName); try Memo1.Lines.Text := WordDoc.Range.Text; finally WordDoc.Close(0); WordDoc := Null; end; finally WordApp.Quit; WordApp := Null; end; end; end; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
rapashocker (11.04.2014)
|
#3
|
|||
|
|||
чтож буду пробовать спасибо если честно вы первый кто хоть чтото написал а то только ерничать начнинают
|