库存管理软件版1楼: 想做一个能自动点击网页就能调用我的程序的控件 请高手给点指点

2楼: 呵呵。。想作病毒害人啊。 如服装店库存软件

3楼: 這個給點參考。
--demo.html--



運行Notepad

運行DOS



-----------------------------
unit U_WebBrowser;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
str:String;
begin
str:=ExtractFilePath(Application.ExeName)+＇＇demo.html＇＇;
Caption:=str;
WebBrowser1.Navigate(str);
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if Pos(＇＇Notepad＇＇,URL)>0 then
WinExec(＇＇notepad.exe＇＇,SW_SHOWNORMAL)
else if Pos(＇＇RunCmd＇＇,URL)>0 then
WinExec(＇＇Cmd＇＇,SW_SHOWNORMAL)
else exit;
Cancel:=true;
end;

end.

4楼: 晕 这你都能想出来做病毒害人
我是想让我的软件和网站结合起来
直接点网页的按扭就可以启动软件

5楼: BrainYang 谢谢我测试一下
希望你能多多指点一下

6楼: BrainYang 能给我一个完整的DEMO吗

库存管理软件版7楼: 你的意思是在IE或其他瀏覽器而不是在Delphi程式中的WebBrowser中點擊鏈接后運行指定程式？？這個我不知道。

可能要到JavaScript中找找。