mirror of
https://git.huckle.dev/Huckles-Minecraft-Archive/jpexs-decompiler.git
synced 2026-09-25 14:20:46 +00:00
error handling added to flashplayer + cleanup
This commit is contained in:
Honfika
+368
-222
@@ -23,72 +23,113 @@ type
|
||||
type
|
||||
TMySWF = class(TShockwaveFlash)
|
||||
public
|
||||
Procedure CreateWnd; override;
|
||||
procedure CreateWnd; override;
|
||||
end;
|
||||
|
||||
type
|
||||
type
|
||||
TPipeThread = class(TThread)
|
||||
protected
|
||||
flashFile:string;
|
||||
w:integer;
|
||||
h:integer;
|
||||
bgColor:TColor;
|
||||
flashFile: string;
|
||||
w: integer;
|
||||
h: integer;
|
||||
bgColor: TColor;
|
||||
procedure Execute; override;
|
||||
procedure displaySWF;
|
||||
procedure freeSWF;
|
||||
procedure setPos;
|
||||
procedure setBGColor;
|
||||
end;
|
||||
|
||||
TBuf = array[0..255] of byte;
|
||||
|
||||
var
|
||||
frmMain: TfrmMain;
|
||||
k:String;
|
||||
t:TPipeThread;
|
||||
frmMain: TfrmMain;
|
||||
k: string;
|
||||
t: TPipeThread;
|
||||
flaPreview: TMySWF;
|
||||
target:HWND=0;
|
||||
target: HWND = 0;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
|
||||
Procedure TMySWF.CreateWnd;
|
||||
procedure TMySWF.CreateWnd;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function arrToStr(k:TBuf;len:integer):string ;
|
||||
var s:string;
|
||||
i:integer;
|
||||
begin
|
||||
s:='';
|
||||
for i:=0 to len-1 do
|
||||
begin
|
||||
if k[i]=0 then
|
||||
break;
|
||||
s:=s +''+ chr(k[i]);
|
||||
end;
|
||||
Result:=s;
|
||||
end;
|
||||
|
||||
procedure TPipeThread.displaySWF();
|
||||
function arrToStr(k: TBuf; len: integer): string;
|
||||
var
|
||||
s: string;
|
||||
i: integer;
|
||||
begin
|
||||
s := '';
|
||||
for i := 0 to len - 1 do
|
||||
begin
|
||||
if k[i] = 0 then
|
||||
break;
|
||||
s := s + '' + chr(k[i]);
|
||||
end;
|
||||
Result := s;
|
||||
end;
|
||||
|
||||
procedure ReadPipe(pipe: cardinal; var buffer: TBuf; bytesToRead: cardinal);
|
||||
var
|
||||
numBytesRead: DWORD;
|
||||
readResult: longbool;
|
||||
begin
|
||||
numBytesRead := 0;
|
||||
readResult := ReadFile(pipe, buffer, bytesToRead, numBytesRead, nil);
|
||||
if (not readResult) or (numBytesRead <> bytesToRead) then
|
||||
begin
|
||||
Application.Terminate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure WritePipe(pipe: cardinal; var buffer: TBuf; bytesToWrite: cardinal);
|
||||
var
|
||||
written: cardinal;
|
||||
writeResult: longbool;
|
||||
begin
|
||||
written := 0;
|
||||
writeResult := WriteFile(pipe, buffer, bytesToWrite, written, nil);
|
||||
if (not writeResult) or (written <> bytesToWrite) then
|
||||
begin
|
||||
Application.Terminate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPipeThread.freeSWF();
|
||||
begin
|
||||
windows.SetParent(frmMain.Handle,target);
|
||||
if Assigned(flaPreview) then
|
||||
begin
|
||||
try
|
||||
flaPreview.Stop;
|
||||
flaPreview.Movie := '';
|
||||
flaPreview.Free;
|
||||
flaPreview := nil;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPipeThread.displaySWF();
|
||||
begin
|
||||
Windows.SetParent(frmMain.Handle, target);
|
||||
freeSWF();
|
||||
flaPreview := TMySWF.Create(frmMain);
|
||||
flaPreview.Left:=0;
|
||||
flaPreview.Top:=0;
|
||||
flaPreview.Width:=self.w;
|
||||
flaPreview.Height:=self.h;
|
||||
frmMain.Caption:='set movie:'+flashFile;
|
||||
flaPreview.Left := 0;
|
||||
flaPreview.Top := 0;
|
||||
flaPreview.Width := self.w;
|
||||
flaPreview.Height := self.h;
|
||||
frmMain.Caption := 'set movie:' + flashFile;
|
||||
flaPreview.Parent := frmMain;
|
||||
flaPreview.Movie:=flashFile;
|
||||
flaPreview.Movie := flashFile;
|
||||
flaPreview.SetFocus;
|
||||
end;
|
||||
|
||||
@@ -100,240 +141,345 @@ end;
|
||||
|
||||
procedure TPipeThread.setPos();
|
||||
begin
|
||||
SetWindowPos(frmMain.Handle,0,0,0,self.w,self.h,SWP_SHOWWINDOW);
|
||||
flaPreview.Left:=0;
|
||||
flaPreview.Top:=0;
|
||||
flaPreview.Width:=self.w;
|
||||
flaPreview.Height:=self.h;
|
||||
flaPreview.CreateWnd;
|
||||
//displaySWF();
|
||||
SetWindowPos(frmMain.Handle, 0, 0, 0, self.w, self.h, SWP_SHOWWINDOW);
|
||||
flaPreview.Left := 0;
|
||||
flaPreview.Top := 0;
|
||||
flaPreview.Width := self.w;
|
||||
flaPreview.Height := self.h;
|
||||
flaPreview.CreateWnd;
|
||||
//displaySWF();
|
||||
end;
|
||||
|
||||
procedure TPipeThread.Execute();
|
||||
var pipe:cardinal;
|
||||
numBytesRead:DWORD;
|
||||
buffer:TBuf;
|
||||
pipename:PAnsiChar;
|
||||
len:integer;
|
||||
cmd:integer;
|
||||
written:cardinal;
|
||||
val:cardinal;
|
||||
vals:String;
|
||||
vars:String;
|
||||
var
|
||||
f: Textfile;
|
||||
pipe: cardinal;
|
||||
buffer: TBuf;
|
||||
pipename: PAnsiChar;
|
||||
len: integer;
|
||||
cmd: integer;
|
||||
val: cardinal;
|
||||
vals: string;
|
||||
vars: string;
|
||||
|
||||
const
|
||||
CMD_PLAY = 1;
|
||||
CMD_RESIZE = 2;
|
||||
CMD_BGCOLOR = 3;
|
||||
CMD_CURRENT_FRAME = 4;
|
||||
CMD_TOTAL_FRAMES = 5;
|
||||
CMD_PAUSE = 6;
|
||||
CMD_RESUME = 7;
|
||||
CMD_PLAYING = 8;
|
||||
CMD_REWIND = 9;
|
||||
CMD_GOTO = 10;
|
||||
CMD_CALL = 11;
|
||||
CMD_GETVARIABLE = 12;
|
||||
CMD_SETVARIABLE = 13;
|
||||
CMD_PLAY = 1;
|
||||
CMD_RESIZE = 2;
|
||||
CMD_BGCOLOR = 3;
|
||||
CMD_CURRENT_FRAME = 4;
|
||||
CMD_TOTAL_FRAMES = 5;
|
||||
CMD_PAUSE = 6;
|
||||
CMD_RESUME = 7;
|
||||
CMD_PLAYING = 8;
|
||||
CMD_REWIND = 9;
|
||||
CMD_GOTO = 10;
|
||||
CMD_CALL = 11;
|
||||
CMD_GETVARIABLE = 12;
|
||||
CMD_SETVARIABLE = 13;
|
||||
begin
|
||||
|
||||
pipename:=PAnsiChar('\\.\\pipe\ffdec_flashplayer_'+ParamStr(1));
|
||||
while (not self.Terminated) do
|
||||
begin
|
||||
pipe:=CreateFile(pipename,GENERIC_READ or GENERIC_WRITE,
|
||||
FILE_SHARE_READ or FILE_SHARE_WRITE,
|
||||
nil,
|
||||
OPEN_EXISTING,
|
||||
FILE_ATTRIBUTE_NORMAL,
|
||||
0
|
||||
);
|
||||
numBytesRead:= 0;
|
||||
|
||||
repeat
|
||||
AssignFile(f, 'c:\log\pipelog.txt');
|
||||
if FileExists('c:\log\pipelog.txt') = False then
|
||||
Rewrite(f)
|
||||
else
|
||||
begin
|
||||
ReadFile(pipe,buffer,1,numBytesRead,nil);
|
||||
cmd:=buffer[0];
|
||||
case cmd of
|
||||
CMD_PLAY:
|
||||
begin
|
||||
ReadFile(pipe,buffer,1,numBytesRead,nil);
|
||||
if(numBytesRead>0) then
|
||||
Append(f);
|
||||
end;
|
||||
|
||||
try
|
||||
pipename := PAnsiChar('\\.\\pipe\ffdec_flashplayer_' + ParamStr(1));
|
||||
begin
|
||||
pipe := CreateFile(pipename, GENERIC_READ or GENERIC_WRITE,
|
||||
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
|
||||
|
||||
repeat
|
||||
cmd := 0;
|
||||
try
|
||||
ReadPipe(pipe, buffer, 1);
|
||||
cmd := buffer[0];
|
||||
case cmd of
|
||||
CMD_PLAY:
|
||||
begin
|
||||
ReadPipe(pipe, buffer, 1);
|
||||
len := buffer[0];
|
||||
ReadPipe(pipe, buffer, len);
|
||||
self.flashFile := arrToStr(buffer, len);
|
||||
try
|
||||
Synchronize(displaySWF);
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_PLAY error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
CMD_RESIZE:
|
||||
begin
|
||||
ReadPipe(pipe, buffer, 4);
|
||||
self.w := buffer[0] * 256 + buffer[1];
|
||||
self.h := buffer[2] * 256 + buffer[3];
|
||||
Synchronize(setPos);
|
||||
end;
|
||||
CMD_BGCOLOR:
|
||||
begin
|
||||
ReadPipe(pipe, buffer, 3);
|
||||
self.bgColor := RGB(buffer[0], buffer[1], buffer[2]);
|
||||
Synchronize(setBGColor);
|
||||
end;
|
||||
CMD_CURRENT_FRAME:
|
||||
begin
|
||||
val := 0;
|
||||
try
|
||||
if flaPreview.ReadyState = 4 then
|
||||
val := flaPreview.CurrentFrame
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_CURRENT_FRAME error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
buffer[0] := (val shr 8) mod 256;
|
||||
buffer[1] := val mod 256;
|
||||
WritePipe(pipe, buffer, 2);
|
||||
end;
|
||||
CMD_TOTAL_FRAMES:
|
||||
begin
|
||||
val := 0;
|
||||
try
|
||||
if flaPreview.ReadyState = 4 then
|
||||
val := flaPreview.TotalFrames
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_TOTAL_FRAMES error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
buffer[0] := (val shr 8) mod 256;
|
||||
buffer[1] := val mod 256;
|
||||
WritePipe(pipe, buffer, 2);
|
||||
end;
|
||||
CMD_PAUSE:
|
||||
begin
|
||||
try
|
||||
flaPreview.Stop;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_PAUSE error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
CMD_RESUME:
|
||||
begin
|
||||
try
|
||||
flaPreview.Play;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_RESUME error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
CMD_PLAYING:
|
||||
begin
|
||||
buffer[0] := 0;
|
||||
try
|
||||
if flaPreview.ReadyState = 4 then
|
||||
if flaPreview.IsPlaying then
|
||||
buffer[0] := 1;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_PLAYING error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
|
||||
WritePipe(pipe, buffer, 1);
|
||||
end;
|
||||
CMD_REWIND:
|
||||
begin
|
||||
try
|
||||
flaPreview.Rewind;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_REWIND error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
CMD_GOTO:
|
||||
begin
|
||||
ReadPipe(pipe, buffer, 2);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
try
|
||||
flaPreview.GotoFrame(val);
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_GOTO error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
CMD_CALL:
|
||||
begin
|
||||
ReadPipe(pipe, buffer, 2);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
ReadPipe(pipe, buffer, val);
|
||||
SetString(vals, PChar(Addr(buffer)), val);
|
||||
vals := '';
|
||||
try
|
||||
vals := flaPreview.CallFunction(vals);
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_CALL error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
val := length(vals);
|
||||
buffer[0] := (val shr 8) mod 256;
|
||||
buffer[1] := val mod 256;
|
||||
WritePipe(pipe, buffer, 2);
|
||||
Move(vals[1], buffer, val);
|
||||
WritePipe(pipe, buffer, val);
|
||||
end;
|
||||
CMD_GETVARIABLE:
|
||||
begin
|
||||
ReadPipe(pipe, buffer, 2);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
ReadPipe(pipe, buffer, val);
|
||||
SetString(vals, PChar(Addr(buffer)), val);
|
||||
vals := '';
|
||||
try
|
||||
vals := flaPreview.GetVariable(vals);
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_GETVARIABLE error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
val := length(vals);
|
||||
buffer[0] := (val shr 8) mod 256;
|
||||
buffer[1] := val mod 256;
|
||||
WritePipe(pipe, buffer, 2);
|
||||
Move(vals[1], buffer, val);
|
||||
WritePipe(pipe, buffer, val);
|
||||
end;
|
||||
CMD_SETVARIABLE:
|
||||
begin
|
||||
ReadPipe(pipe, buffer, 2);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
ReadPipe(pipe, buffer, val);
|
||||
SetString(vars, PChar(Addr(buffer)), val);
|
||||
|
||||
ReadPipe(pipe, buffer, 2);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
ReadPipe(pipe, buffer, val);
|
||||
SetString(vals, PChar(Addr(buffer)), val);
|
||||
|
||||
try
|
||||
flaPreview.SetVariable(vars, vals);
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
freeSWF();
|
||||
Writeln(f, 'CMD_SETVARIABLE error: ' + E.Message);
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
len:=buffer[0];
|
||||
ReadFile(pipe,buffer,len,numBytesRead,nil);
|
||||
self.flashFile:=arrToStr(buffer,numBytesRead);
|
||||
Synchronize(displaySWF);
|
||||
freeSWF();
|
||||
Writeln(f, 'FATAL ERROR: ' + E.Message + ' cmd: ' + IntToStr(cmd));
|
||||
Flush(f);
|
||||
end;
|
||||
end;
|
||||
CMD_RESIZE:
|
||||
begin
|
||||
ReadFile(pipe,buffer,4,numBytesRead,nil);
|
||||
self.w:=buffer[0]*256+buffer[1];
|
||||
self.h:=buffer[2]*256+buffer[3];
|
||||
Synchronize(setPos);
|
||||
end;
|
||||
CMD_BGCOLOR:
|
||||
begin
|
||||
ReadFile(pipe,buffer,3,numBytesRead,nil);
|
||||
self.bgColor := RGB(buffer[0],buffer[1],buffer[2]);
|
||||
Synchronize(setBGColor);
|
||||
end;
|
||||
CMD_CURRENT_FRAME:
|
||||
begin
|
||||
if flaPreview.ReadyState = 4 then
|
||||
val:=flaPreview.CurrentFrame
|
||||
else
|
||||
val:=0;
|
||||
buffer[0]:=(val shr 8) mod 256;
|
||||
buffer[1]:=val mod 256;
|
||||
WriteFile(pipe,buffer,2,written,nil);
|
||||
end;
|
||||
CMD_TOTAL_FRAMES:
|
||||
begin
|
||||
if flaPreview.ReadyState = 4 then
|
||||
val:=flaPreview.TotalFrames
|
||||
else
|
||||
val:=0;
|
||||
buffer[0]:=(val shr 8) mod 256;
|
||||
buffer[1]:=val mod 256;
|
||||
WriteFile(pipe,buffer,2,written,nil);
|
||||
end;
|
||||
CMD_PAUSE:
|
||||
begin
|
||||
flaPreview.Stop;
|
||||
end;
|
||||
CMD_RESUME:
|
||||
begin
|
||||
flaPreview.Play;
|
||||
end;
|
||||
CMD_PLAYING:
|
||||
begin
|
||||
buffer[0]:=0;
|
||||
if flaPreview.ReadyState = 4 then
|
||||
if flaPreview.IsPlaying then
|
||||
buffer[0]:=1;
|
||||
|
||||
|
||||
WriteFile(pipe,buffer,1,written,nil);
|
||||
end;
|
||||
CMD_REWIND:
|
||||
begin
|
||||
flaPreview.Rewind;
|
||||
end;
|
||||
CMD_GOTO:
|
||||
begin
|
||||
ReadFile(pipe,buffer,2,numBytesRead,nil);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
flaPreview.GotoFrame(val);
|
||||
end;
|
||||
CMD_CALL:
|
||||
begin
|
||||
ReadFile(pipe,buffer,2,numBytesRead,nil);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
ReadFile(pipe,buffer,val,numBytesRead,nil);
|
||||
SetString(vals, PChar(Addr(buffer)), val);
|
||||
vals:=flaPreview.CallFunction(vals);
|
||||
val:=length(vals);
|
||||
buffer[0]:=(val shr 8) mod 256;
|
||||
buffer[1]:=val mod 256;
|
||||
WriteFile(pipe,buffer,2,written,nil);
|
||||
Move(vals[1], buffer, val);
|
||||
WriteFile(pipe,buffer,val,written,nil);
|
||||
end;
|
||||
CMD_GETVARIABLE:
|
||||
begin
|
||||
ReadFile(pipe,buffer,2,numBytesRead,nil);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
ReadFile(pipe,buffer,val,numBytesRead,nil);
|
||||
SetString(vals, PChar(Addr(buffer)), val);
|
||||
vals:=flaPreview.GetVariable(vals);
|
||||
val:=length(vals);
|
||||
buffer[0]:=(val shr 8) mod 256;
|
||||
buffer[1]:=val mod 256;
|
||||
WriteFile(pipe,buffer,2,written,nil);
|
||||
Move(vals[1], buffer, val);
|
||||
WriteFile(pipe,buffer,val,written,nil);
|
||||
end;
|
||||
CMD_SETVARIABLE:
|
||||
begin
|
||||
ReadFile(pipe,buffer,2,numBytesRead,nil);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
ReadFile(pipe,buffer,val,numBytesRead,nil);
|
||||
SetString(vars, PChar(Addr(buffer)), val);
|
||||
|
||||
ReadFile(pipe,buffer,2,numBytesRead,nil);
|
||||
val := (buffer[0] shl 8) + buffer[1];
|
||||
ReadFile(pipe,buffer,val,numBytesRead,nil);
|
||||
SetString(vals, PChar(Addr(buffer)), val);
|
||||
|
||||
flaPreview.SetVariable(vars,vals);
|
||||
|
||||
end;
|
||||
end;
|
||||
end
|
||||
until numBytesRead<=0;
|
||||
CloseHandle(pipe);
|
||||
|
||||
|
||||
end;
|
||||
until False;
|
||||
|
||||
CloseHandle(pipe);
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.FormActivate(Sender: TObject);
|
||||
begin
|
||||
|
||||
|
||||
|
||||
|
||||
if(ParamCount>=2) then
|
||||
if (ParamCount >= 2) then
|
||||
begin
|
||||
flaPreview.Parent := frmMain;
|
||||
flaPreview.Parent := frmMain;
|
||||
|
||||
ShowWindow(Application.Handle, SW_HIDE) ;
|
||||
SetWindowLong(Application.Handle, GWL_EXSTYLE, getWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW) ;
|
||||
ShowWindow(Application.Handle, SW_HIDE);
|
||||
SetWindowLong(Application.Handle, GWL_EXSTYLE,
|
||||
getWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
|
||||
ShowWindow(Application.Handle, SW_SHOW);
|
||||
|
||||
SetForegroundWindow(HWND(strtoint(ParamStr(2))));
|
||||
frmMain.Caption:='FlashPlayerWindow_'+ParamStr(2);
|
||||
Application.Title:='FlashPlayerWindow_'+ParamStr(2);
|
||||
target:=HWND(strtoint(ParamStr(1)));
|
||||
SetForegroundWindow(HWND(StrToInt(ParamStr(2))));
|
||||
frmMain.Caption := 'FlashPlayerWindow_' + ParamStr(2);
|
||||
Application.Title := 'FlashPlayerWindow_' + ParamStr(2);
|
||||
target := HWND(StrToInt(ParamStr(1)));
|
||||
|
||||
SetWindowLong(frmMain.Handle, GWL_STYLE, 0);
|
||||
ShowWindow(frmMain.Handle, SW_SHOW);
|
||||
|
||||
frmMain.Left:=0;
|
||||
frmMain.Top:=0;
|
||||
windows.SetParent(frmMain.Handle,target);
|
||||
frmMain.Left := 0;
|
||||
frmMain.Top := 0;
|
||||
Windows.SetParent(frmMain.Handle, target);
|
||||
|
||||
t:=TPipeThread.Create(true);
|
||||
t := TPipeThread.Create(True);
|
||||
t.Resume;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.FormCreate(Sender: TObject);
|
||||
begin
|
||||
if(ParamCount>=2) then
|
||||
begin
|
||||
flaPreview := TMySWF.Create(frmMain);
|
||||
flaPreview.AllowScriptAccess := 'always';
|
||||
flaPreview.BackgroundColor:=-1;
|
||||
if (ParamCount >= 2) then
|
||||
begin
|
||||
flaPreview := TMySWF.Create(frmMain);
|
||||
flaPreview.AllowScriptAccess := 'always';
|
||||
flaPreview.BackgroundColor := -1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
t.Free;
|
||||
t.Free;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.tmrWatchDogTimer(Sender: TObject);
|
||||
begin
|
||||
if target<>0 then
|
||||
begin
|
||||
if target <> 0 then
|
||||
begin
|
||||
if not IsWindow(target) then
|
||||
begin
|
||||
Application.Terminate;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user