为全屏幕方式的DirectDraw对象指定窗口Handle

　　在DirectX编程中，IDirectDraw2对象有一个方法名为SetCooperativeLevel，功能是指定该对象的性能级别。调用该方法需要指定一个窗口Handle，在C++中可简单地指定为主程序的窗口Handle，而在Delphi中，如果设定的级别为全屏幕独占方式，则这个Handle一定要是Application.Handle而不是MainForm.Handle，这一点在我所见到的所有关于DirectDraw的封装、构件中均未得见。

　　在设定为全屏幕独占方式时，还要先使Application.Handle所代表的窗口显示在最前方，否则下一步调用CreateSurface方法就会失败。这一点也是我几经尝试才总结出来的。请见示例代码：

function CreateFullScreen(out DDrawObj:IDirectDraw2): HRESULT

var

lpDD : IDirectDraw;

begin

Result := DirectDrawCreate(nil, lpDD, nil);

if Result<>DD_OK then

raise Exception.Create('Failed Create!');

Result := lpDD.QueryInterface(IID_IDirectDraw2, DDrawObj):

if Result<>DD_OK then

raise Exception.Create('Failed QueryInterface!');

ShowWindow(Application.Handle, SW_SHOWMAXIMIZED);

Result := DDrawObj.SetCooperativeLevel(

Application.Handle, {很重要，一定要是Application窗口}

DDSCL_FULLSCREEN or DDSCL_EXCLUSIVE);

if Result<>DD_OK then

raise Exception.Create('Failed SetCooperativeLevel');

Result := DDrawObj.SetDisplayMode(640,480,8,0,0);

end;