Hi I have made a app to autorun a html file in a default browser
using a linked ole to index.html.
But on a different machine I get a error Monikar cannot open.
I am using Delphi 2
this is the code
unit myautohtml1;
interface
uses
ShellApi, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtnrs;
type
TForm1 = class(TForm)
OleContainer1: TOleContainer;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
procedure TForm1.FormShow(Sender: TObject.OnClick);
begin
ShellExecute(Handle, 'open', PChar('index.htm'), nil, nil, SW_SHOW);
if Assigned(OnClick) then OnClick(Self);
Close;
end;
using a linked ole to index.html.
But on a different machine I get a error Monikar cannot open.
I am using Delphi 2
this is the code
unit myautohtml1;
interface
uses
ShellApi, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtnrs;
type
TForm1 = class(TForm)
OleContainer1: TOleContainer;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
procedure TForm1.FormShow(Sender: TObject.OnClick);
begin
ShellExecute(Handle, 'open', PChar('index.htm'), nil, nil, SW_SHOW);
if Assigned(OnClick) then OnClick(Self);
Close;
end;