flash 播放器退出的问题(200分)

我用delphi 嵌入播放一个flash文件（全屏显示），flash文件有退出按钮，当点击flash退出按钮后，也关闭delphi的应用程序？

最好有实例！

你可以试试用定时器在程序中检索flash的进程，如果结束就把delphi的应用程序也关掉

在flash中指定一个特别的命令，在flash控件中的OnFSCommand事件中捕获命令，执行你想要的操作；

给FLASH中的按牛加入onFscommand的Action,有两个参数给不同的值,
然后在DELHPI中的FLASH控件上有个onFscommand的事件,在事件中调用DELPHI。
例子:在onFscommand的事件中
if 参数1 = 值 then

begin

你的调用DELPHI语句
end;



转的，希望能用。

问题1已经解决，解决办法如下，问题2希望大家踊跃发言！
procedure TForm1.Flash1FSCommand(ASender: TObject;
const command,
args: WideString);
begin

if Command='quit' then

begin

Application.Terminate;
end;

end;

// PipeService.cpp : 定义控制台应用程序的入口点。
//
#include "stdafx.h"

#define BUFSIZE 1024
#define PIPE_TIMEOUT 1000

int __main(void);

int MyErrExit(char*);

int _tmain(int argc, _TCHAR* argv[])
{
__main();

return 0;

}

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <windows.h>

VOID InstanceThread(LPVOID);

VOID GetAnswerToRequest(LPTSTR, LPTSTR, LPDWORD);

VOID GetAnswerToRequest(HANDLE hFile);

int xx = 0;



/*

//./pipe/egbpipe

*/

int __main(void)
{
BOOL fConnected;

DWORD dwThreadId;

HANDLE hPipe, hThread;

LPTSTR lpszPipename = "////.//pipe//egbpipe";


// The main loop creates an instance of the named pipe and
// then
waits for a client to connect to it. When the client
// connects, a thread is created to handle communications
// with that client, and the loop is repeated.

for (;
{
hPipe = CreateNamedPipe(
lpszPipename, // pipe name
PIPE_ACCESS_DUPLEX, // read/write access
PIPE_TYPE_MESSAGE | // message type pipe
PIPE_READMODE_MESSAGE | // message-read mode
PIPE_WAIT, // blocking mode
PIPE_UNLIMITED_INSTANCES, // max. instances
BUFSIZE, // output buffer size
BUFSIZE, // input buffer size
PIPE_TIMEOUT, // client time-out
NULL);
// no security attribute

if (hPipe == INVALID_HANDLE_VALUE)
MyErrExit("CreatePipe");


// Wait for the client to connect;
if it succeeds,
// the function returns a nonzero value. If the function returns
// zero, GetLastError returns ERROR_PIPE_CONNECTED.

fConnected = ConnectNamedPipe(hPipe, NULL) ?
TRUE : (GetLastError() == ERROR_PIPE_CONNECTED);


if (fConnected)
{
// Create a thread for this client.
hThread = CreateThread(
NULL, // no security attribute
0, // default stack size
(LPTHREAD_START_ROUTINE) InstanceThread,
(LPVOID) hPipe, // thread parameter
0, // not suspended
&amp;dwThreadId);
// returns thread ID

if (hThread == NULL)
MyErrExit("CreateThread");

else

CloseHandle(hThread);


}
else

// The client could not connect, so close the pipe.
CloseHandle(hPipe);

}
return 1;

}

VOID InstanceThread(LPVOID lpvParam)
{
CHAR chRequest[BUFSIZE];

CHAR chReply[BUFSIZE];

DWORD cbBytesRead, cbReplyBytes, cbWritten;

BOOL fSuccess;

HANDLE hPipe;


// The thread's parameter is a handle to a pipe instance.

hPipe = (HANDLE) lpvParam;


// while (1)
{
// Read client requests from the pipe.
/* fSuccess = ReadFile(
hPipe, // handle to pipe
chRequest, // buffer to receive data
BUFSIZE, // size of buffer
&amp;cbBytesRead, // number of bytes read
NULL);
// not overlapped I/O

if (! fSuccess || cbBytesRead == 0)
break;

*/
//GetAnswerToRequest(chRequest, chReply, &amp;cbReplyBytes);

GetAnswerToRequest(hPipe);

/*
// Write the reply to the pipe.
fSuccess = WriteFile(
hPipe, // handle to pipe
chReply, // buffer to write from
cbReplyBytes, // number of bytes to write
&amp;cbWritten, // number of bytes written
NULL);
// not overlapped I/O

// if (! fSuccess || cbReplyBytes != cbWritten) break;

*/ }

// Flush the pipe to allow the client to read the pipe's contents
// before disconnecting. then
disconnect the pipe, and close the
// handle to this pipe instance.

FlushFileBuffers(hPipe);

DisconnectNamedPipe(hPipe);

CloseHandle(hPipe);

}

int MyErrExit(char* szInfo)
{
return MessageBox(0, szInfo, "Whoo", MB_OK);

}

VOID GetAnswerToRequest(HANDLE hFile)
{
const int BuffLen = 10;

byte buff[BuffLen] = {0};


FILE* f = fopen("blue.swf", "rb");


int iLen = BuffLen;

while(iLen == BuffLen)
{
iLen = fread(buff, sizeof(byte), BuffLen, f);


Sleep(3);

DWORD uLen = 0;

WriteFile(hFile, buff, iLen, &amp;uLen, NULL);

}
_fcloseall( );

}

用FlashplayerControl控件
www.f-in-box.com

各位，最好是用delphi实现的[]

以内存流的方式播放FLASH
http://hi.baidu.com/orxor/blog/item/e22d5bb463a3c3cb36d3ca03.html

www.ysza.com 免费资源，内存中运行flash

利用 FlashAX控件 内存播放FLASH
http://www.delphibbs.com/keylife/iblog_show.asp?xid=30668