Rev 91 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 91 | Rev 107 | ||
---|---|---|---|
Line 7... | Line 7... | ||
7 | uses |
7 | uses |
8 | // TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2 |
8 | // TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2 |
9 | // so you have to change the reference SHDocVw / SHDocVw_TLB yourself |
9 | // so you have to change the reference SHDocVw / SHDocVw_TLB yourself |
10 | Windows, Messages, SysUtils, Variants, Classes, Graphics, |
10 | Windows, Messages, SysUtils, Variants, Classes, Graphics, |
11 | Controls, Forms, Dialogs, OleCtrls, SHDocVw, ExtCtrls, StrUtils, |
11 | Controls, Forms, Dialogs, OleCtrls, SHDocVw, ExtCtrls, StrUtils, |
12 | StdCtrls, activex, UrlMon; |
12 | StdCtrls, activex, UrlMon, WebBrowserUtils; |
13 | 13 | ||
14 | type |
14 | type |
15 | TForm2 = class(TForm) |
15 | TForm2 = class(TForm) |
16 | WebBrowser1: TWebBrowser; |
16 | WebBrowser1: TWebBrowser; |
17 | Timer1: TTimer; |
17 | Timer1: TTimer; |
Line 32... | Line 32... | ||
32 | implementation |
32 | implementation |
33 | 33 | ||
34 | {$R *.dfm} |
34 | {$R *.dfm} |
35 | 35 | ||
36 | uses |
36 | uses |
37 | WebBrowserUtils, FastPHPUtils, Functions, ShellAPI; |
37 | FastPHPUtils, Functions, ShellAPI; |
38 | 38 | ||
39 | // TODO: Add a lot of nice stuff to let the PHP script communicate with this host application |
39 | // TODO: Add a lot of nice stuff to let the PHP script communicate with this host application |
40 | // For example, allow window resizing etc. (See Microsoft HTA for inspiration) |
40 | // For example, allow window resizing etc. (See Microsoft HTA for inspiration) |
41 | // TODO: Ajax gives Access Denied error... Create own security manager? |
41 | // TODO: Ajax gives Access Denied error... Create own security manager? |
42 | // TODO: History doesn't work? |
42 | // TODO: History doesn't work? |