[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    {
    >>        I'm trying to make a progam which can call WINWORD.EXE for =
    example
    >>when
    >>you select a file with a ".DOC" extension.... I have look at the =
    WIN.INI
    >>file in the EXTENSION section but this solution was not very clean =
    !!!!
    >>
    >>        Can somebody please help me?
    >
    >Use ShellExecute and set "Operation" to 'Open'.

            I have found a solution more easy to used.
            I use a TOleContainer object like this :
    }
    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    Dialogs,
      StdCtrls, Buttons, OleCtnrs;

    type
      TForm1 =3D class(TForm)
        OleContainer1: TOleContainer;
        BitBtn1: TBitBtn;
        procedure BitBtn1Click(Sender: TObject);
      private
        { D=E9clarations priv=E9es }
      public
        { D=E9clarations publiques }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.DFM}

    procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
      OleContainer1.CreateLinkToFile('C:\TEST\TOTO.doc', False);      {
         You specify your file name            }
      OleContainer1.DoVerb(ovShow);                                 { Like that the application called
    was open }
      OleContainer1.CreateLinkToFile('C:\TEST\TITI.doc', False);
      OleContainer1.DoVerb(ovShow);
      OleContainer1.CreateLinkToFile('C:\WINDOWS\WIN.INI', False);
      OleContainer1.DoVerb(ovShow);=09
    end;

    end.

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]