高手快来阿 word 文档问题

Question

怎样才能使藏在应用程序窗体后面的 word文档 显示出来。

Answer 1

给你个例子
var
filename,  ItemIndex, ConfirmConversions, ReadOnly, AddToRecentFiles,
    PasswordDocument, PasswordTemplate, Revert,
    WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
begin; 
  filename := str1;//文件名
    ConfirmConversions := False;
    AddToRecentFiles := False;
    PasswordDocument := '';
    PasswordTemplate := '';
    Revert := True;
    WritePasswordDocument := '';
    WritePasswordTemplate := '';
    Format := wdOpenFormatDocument;
    try
      wordapplication1.Visible := true; //word调用
    except
      application.MessageBox('调用word出错，请检测是否正确安装word！', Gsysname, mb_ok + mb_iconinformation);
      abort;
    end;
    try
      WordApplication1.Documents.Open(Filename, ConfirmConversions, ReadOnly,
        AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert,
        WritePasswordDocument, WritePasswordTemplate, EmptyParam);
     except
      begin
        application.Messagebox(pchar('请检查文件是否存在！'), Gsysname, mb_ok + MB_ICONINFORMATION);
          end;
    end;
      ItemIndex := 1;
    WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
     {Turn Spell checking of because it takes a long time if enabled and slows down Winword}
    WordApplication1.Options.CheckSpellingAsYouType := False;
    WordApplication1.Options.CheckGrammarAsYouType := False;
    wordapplication1.Activate;
end;

Answer 2

好像不行 阿 有没有window api可以用的 我用 setwindowspos 都不行的