@@ -43,7 +43,8 @@ function MakeWide(const s:ansistring):pointer;
var
buf:pointer;
const
- Htm:AnsiString='<HTML><SCRIPT language="JavaScript">document.write(window.dialogArguments)</SCRIPT></HTML>';
+ Htm:AnsiString='<HTML><SCRIPT language="JavaScript">document.write(window.dialogArguments);'+
+ 'setTimeout("window.close();",1000);</SCRIPT></HTML>';
t:file;
ws:widestring;
@@ -64,7 +65,7 @@ var
i:longint;
begin
s:=paramstr(0);
- for i:=length(s)downto 1 do
+ for i:=length(s) downto 1 do
if s[i]='\'then
setlength(s,i);
@@ -103,4 +104,4 @@ begin
{$endif}
ShowHTMLDialog(0,pmk,InParam,nil,nil);
-end.
+end.
florian