AVI存储格式问题-为实现屏幕录像！100分在线等·！

Question

本人为实现屏幕录像，和屏幕录像专家差不多，现在已经实现了将图像写入AVI文件，但现在写的都是未经压缩的帧，文件大得惊人！我看过VB中的一些例子，里面有
Public Declare Function AVISaveOptions Lib "avifil32.dll" (ByVal hWnd As Long, _
                                                        ByVal uiFlags As Long, _
                                                        ByVal nStreams As Long, _
                                                        ByRef ppavi As Long, _
                                                        ByRef ppOptions As Long) As Long 
，该函数可设置多种压缩格式，不知在Delphi中如何实现此函数呢？另外有没办法在使用此函数时弹出那个压缩格式选择框，因为VB中使用此函数时会弹出的！（即设置一个默认值）