[poli-smen]

Сообщение от rapashocker

Привет опытные программисты у меня есть задачка плиз помогите!!! : Вообщем нужно из ShellListview через отбработчик событий Onmousedown или Dbclic, загрузить содержимое ворд файла на форму,т.е вывести в Memo, как это сделать плиз хелп!! а то слабовато разбираюсь в этом

Примерно так:

Код:

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;

p.s. Здесь правда я использую позднее связывание, хотя предпочитаю раннее - просто с поздним связыванием код выглядит попроще.