超级解霸的问题！！十万火急！！！(100分)

procedure TForm1.Button1Click(Sender: TObject);
var
hh,hh1:hwnd;
a:integer;
begin

winexec('C:/HERO2000/SthSVCD.exe',sw_show);
hh:=FindWindow('SthVCDClass','豪杰超级解霸2000');
///查找超级解霸
if hh<>0 then

begin

postmessage(hh,WM_COMMAND,40001,0);
hh1:=FindWindowEx(FindWindow('#32770','打开影视文件'),0,'Edit',nil);///得到编辑筐
//hh1始终为０
//得不到编辑框的句柄，不知是FindWindowEx函数的参数写错了还是别的问题？？
sendMessage(hh1,WM_SETTEXT,0,LongInt(pchar('e:/movie/1.DAT')));//添加字符
sendMessage(FindWindow('#32770','打开影视文件'),WM_COMMAND,IDOK,0);
sendMessage(hh,WM_COMMAND,40003,0);
end
else

showmessage('not find sthsvcd!!');

end;

不如注册关联后直接点击你要播放的文件就可以了！

采取这样方法累了些。不明白你想完成什么功能？

你用WinSight和Spy++看一看，根本没有"打开影视文件"对话框

哎，直接用
winexec('C:/HERO2000/SthSVCD.exe /p e:/movie/1.dat',sw_show);
不行么？你的那个发送按键的方式根本要不得，必须采取复杂的按键发送代码~~~~~~~~~~

winexec('C:/HERO2000/SthSVCD.exe /p e:/movie/1.dat',sw_show);
可以是可以，但只能调用一个影音文件，我想调用多个文件请问如何填写参数？？？
我已经试了N次，还是不行。
以上代码虽然复杂，但是我觉得应该可以同时调用多个影音文件。

另外 我用一个叫做Greatis WinDowse的软件可以察看出来"打开影视文件"
对话框的Class与标题。

我这儿可以：
…………
hh := FindWindow('SthVCDClass',nil);
hh := FindWindow(PChar(GlobalAddAtom(MAKEINTATOM($00008002))), '打开影视文件');
hh := FindWindowEx(hh, 0, 'ComboBoxEx32', nil);
hh := FindWindowEx(hh, 0, 'ComboBox', nil);
hh := FindWindowEx(hh, 0, 'Edit', nil);
…………
WinME + Delphi6.0 + 豪杰超级解霸2001XP
Spy32 for Windows 9x/NT v2.70

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
winexec('C:/HERO2000/SthSVCD.exe /p e:/movie/1.dat',sw_show);
可以是可以，但只能调用一个影音文件，我想调用多个文件请问如何填写参数？？？
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
哎，多个文件一样加啊！
winexec('C:/HERO2000/SthSVCD.exe e:/movie/1.dat e:/movie/2.dat e:/movie/3.dat',sw_show);

我的程序是在win2000下调试的，独帅的代码还是找不到句柄。
但还是给你20分吧！！
Kingron的答案对我的程序很有帮助！！谢谢！！