建议你不要把这些代码写在FORMSHOW事件中,而是另外写在鼠标事件中.因为FORMSHOW只对于本窗体成为可见时才触发,当此窗体已经可见,它就不会再次触发此事件,所以就会出现你所说的只能打开一个网页,而不能打开另一个网页.

 if FileExists(ParamStr(1)) then
  begin
   OpenUrl(ParamStr(1));
  end;那这段代码有没有错?
能不能实现打开多个文件?

也想知道

有没有错你可以另外拿出来在另建项目调试一下不就知道了.

真的没有人知道吗？
我再帮你up好了！！！

真的没有人知道吗？
我再帮你up好了！！！

UPP

用在OnActivate事件里

我觉得你应该先调试一下,可以帮助你找到解决的办法.
应该是事件响应问题.

用WebBrowers控件试试！

同意delphi1234(披着羊皮的狼) ,你的代码没有错，但放错了地方，可以写在工程代码里。

用activex控件,他支持多线程

帮你UP

代码没错

好象不简单

在主程序中加入:
  h:=findwindow('formtext'....)
  if h<>0 then 
         begin
           setforegroundwindow(h);
           ...根据参数生成新的子窗体

         end
        else
           正常创建主窗体

第二个网页用sendmessage发送啊!

program Project1;

uses
  Windows,
  Messages,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

var
  AppWnd, MainWnd: HWND;

  I: Integer;
  ParamString: string;

  CopyDataStruct: TCopyDataStruct;
begin
  AppWnd := FindWindow('TApplication', 'This is my project title');
  if AppWnd <> 0 then
  begin
    if IsIconic(AppWnd) then
      ShowWindow(AppWnd, SW_RESTORE)
    else
      SetForegroundWindow(AppWnd);
    MainWnd := GetProp(AppWnd, 'Main Form Handle');
    ParamString := ParamStr(1);
    CopyDataStruct.cbData := Length(ParamString) + 1;
    CopyDataStruct.lpData := PChar(ParamString);
    SendMessage(MainWnd, WM_COPYDATA, 0, LPARAM(@CopyDataStruct));
    Exit;
  end;

  Application.Initialize;
  Application.Title := 'TEST';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;

procedure TForm1.WMCopyData(var Msg: TWMCopyData);
var
  ParamString: string;
begin
  with Msg.CopyDataStruct^ do
  begin
    ParamString := StrPas(PChar(lpData));
  end;
end;

接收!

然后在接收代码里新建窗口,打开网页,网页地址为 ParamString

up

AppWnd := FindWindow('TApplication', 'This is my project title');
改为
AppWnd := FindWindow('TApplication', 'Test');

注意第一段代码是加在工程文件DPR中!

你的问题的实质是如何只运行程序的一个实例，要达到这个目的，方法很多，比如 del_c_sharp(feifei)的方法。
不过我认为使用Mutex是个比较好的办法。
程序创建时调用CreateMutex创建一个Mutex，然后判断该对象是否存在，如存在，表明程序已经有一个实例，此时可以调用EnumWindows枚举当前系统中的实例，找到后就激活当前的实例，让它处理html文件(具体方法ehom网友写的很清楚)

up

UP
============================
@* .☆ / ＊/　.　/ * . ☆/ ＊。
   ◢◣。       ◢◣。
  ◢★◣。     ◢★◣。
 ◢■■◣。   ◢■■◣。
◢■■■◣。 ◢■■■◣。
︸︸||︸︸ !!︸︸||︸︸
愿您有快乐的每一天 ^_^!!

学习。

我对你的程序:

if FileExists(ParamStr(1)) then
  begin
   OpenUrl(ParamStr(1));
  end;


能不能实现打开多个文件表示怀疑.

ParamStr(1)怎样能体现是变化的你呢?

另外,我不知道你的程序是如何启动的,用命令行启动吗? 否则,ParamStr(1)何处来呢?

另外,启动一次,总只有一个文件名为ParamStr(1).

所以,要显示2个或多个文件,必须多次启动.

up