|
|
@@ -1,6 +1,4 @@
|
|
|
{ %target=win32 }
|
|
|
-{ %interactive }
|
|
|
-
|
|
|
{ Source provided for Free Pascal Bug Report 2423 }
|
|
|
{ Submitted by "Pavel V. Ozerski" on 2003-03-18 }
|
|
|
{ e-mail: [email protected] }
|
|
|
@@ -45,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>';
|
|
|
var
|
|
|
t:file;
|
|
|
ws:widestring;
|
|
|
@@ -66,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
|
|
|
begin
|
|
|
setlength(s,i);
|
|
|
@@ -105,4 +104,4 @@ begin
|
|
|
{$endif}
|
|
|
|
|
|
ShowHTMLDialog(0,pmk,InParam,nil,nil);
|
|
|
-end.
|
|
|
+end.
|
florian