如何才能做到关闭像realplay这种没有特定标题的进程

Question

曾试过这样编写：  
var    
ExeHandle:Thandle;    
Begin    
ExeHandle:=FindWindow('RealPlay',nil);//''）;    
if  ExeHandle<>0  then    
SendMessage(ExeHandle,WM_Close,0,0)    
Else    
Application.MessageBox('没有打开"RealPlay"程序!','提示',    
MB_IconInformation+MB_OK);    
end;    
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝  
可惜不能用 ，老提示没有打开realplay，可这个进程是开着的。 
应该怎么写才能做到啊，谢谢提示

Answer 1

用SPY++找它的类名，然后WM_CLOSE它。。SPY++在http://delphijl.99898.com有下载：）

Answer 2

我试了一下，类名为：GeminiWindowClass

Answer 3

var    
ExeHandle:Thandle;    
Begin    
ExeHandle:=FindWindow(nil,'GeminiWindowClass');//''）;    
if  ExeHandle<>0  then    
SendMessage(ExeHandle,WM_Close,0,0)    
Else    
Application.MessageBox('没有打开"RealPlay"程序!','提示',    
MB_IconInformation+MB_OK);    
end;