我们在Windows98环境下执行拷贝文件、查找文件等计算机耗时较长的操作时，Windows会显示一个小小的动画，指示正在进行的操作，与死板的静止图像相比增色不少。那么我们自己开发软件时，能否也显示一个这样的动画提示呢？笔者开发了一个能够在PB下调用的动画DLL，由于采用多线程编程，PB调用的DLL函数能够及时将控制权交还给PB，不影响应用系统的运转。
一、代码与编译选项
在C＋＋Builder中创建一个空白的DLL项目。
创建一个空白的Form，修改它的属性为: BorderStyle=bsDialog
BorderIcons的子属性均为False
FormStyle=fsStayOnTop
Position= poScreenCenter
Name=StatusForm
在Form上添加一个Win32下的Animate控件Animate1，修改它的属性为 Align=alTop在Form上添加一个Standard下的Button控件Button_Cancel，再添加System下的Timer控件Timer1，设置定时Interval时间位250，较快响应用户的取消请求。
因为PB应用系统与动画窗体代码分别属于两个线程，不能采用PB线程直接关闭动画窗体线程的窗口，否则会引起系统运行不正常，因此采用PB线程设置关闭标志，而动画线程采用Timer控件定时检查标志，一旦检测到关闭标志，就关闭窗口，清除线程标志，结束动画线程。
5.下面给出编码及编码原理：
(1)DLL主体代码： /＊DLL主体代码
＊定义DLL公用变量
＊g_CommonAVI 对Animate控件
动画类型索引
＊gi_Canceled Button_Cancel
按钮是否被选择过
＊gi_AVIType 要显示的动画类型，
由DLL输出函数做为参数输入
＊gi_RequestClose 请求动画线程关闭标志
＊gi_WindowActive 动画窗口所处的状态
＊lpsWinTitle 动画窗体的标题，
由DLL输出函数做为参数输入
＊/
TCommonAVI g_CommonAVI[]={
aviNone, aviFindFolder,
aviFindFile, aviFindComputer,
aviCopyFiles, aviCopyFile,
aviRecycleFile, aviEmptyRecycle,
aviDeleteFile
};
int gi_Canceled=0,gi_AVIType=0;
int gi_RequestClose=0,gi_WindowActive=0;
char lpsWinTitle[256];
HWND hWndParent=NULL;
/＊定义DLL输出函数＊/
extern\"C\" __declspec(dllexport) int pascal Dll
EntryPoint(HINSTANCE hinst, unsigned
long reason, void＊);
extern\"C\" __declspec(dllexport) int pascal
ShowStatus Window
(int AVIType,LPSTR WinTitle,long hWnd);
extern\"C\" __declspec(dllexport)
int pascal GetStatus(int ai_CloseWin);
extern\"C\" __declspec(dllexport)
int pascal CloseStatusWindow();
/＊定义线程TformThread:＊/
class TFormThread : public TThread{
public: // User declarations
__fastcall TFormThread(bool CreateSuspended);
void __fastcall Execute(void);
};
__fastcall TFormThread::
TFormThread(bool CreateSuspended):
TThread(CreateSuspended){
}
/＊动画线程执行代码， 动画窗体的定时器控件会关闭它，
清除窗体存在标志后结束线程的运行
＊/
void __fastcall TFormThread::Execute(void){
gi_WindowActive=1;
StatusForm=new TStatusForm(NULL);
StatusForm－>Caption=lpsWinTitle;
StatusForm－>ShowModal();
gi_WindowActive=0;
delete StatusForm;
gi_RequestClose=0;
}
/＊定义一个线程实例指针＊/
TFormThread＊FormThread;
/＊输出函数代码实现部分
＊ DllEntryPoint 32位DLL入口
＊ ShowStatusWindow 显示动画窗口，
它通过创建一个线程来创建窗口，
避免由于窗口的MODAL属性而使
控制权不能及时的返还给调用者
＊ GetStatus 取得\"取消\"状态，
即用户有没有选择\"取消\"按钮
＊ CloseStatusWindow 关闭动画窗口，
＊/
__declspec(dllexport) int WINAPI DllEntryPoint
(HINSTANCE hinst, unsigned long reason, void＊)
{
return 1;
}
__declspec(dllexport) int pascal ShowStatusWindow
(int AVIType,LPSTR WinTitle,long hWnd){
hWndParent=(HWND)hWnd;
memset(lpsWinTitle,0,sizeof(lpsWinTitle));
strncpy(lpsWinTitle,WinTitle,sizeof(lpsWin Title)－1);
if (AVIType>0＆＆AVIType<=8) gi_AVIType=\"AVIType;\" FormThread=\"new\" TFormThread(true); FormThread－>Priority = tpNormal;
FormThread－>Resume();
}
__declspec(dllexport) int pascal GetStatus
(int ai_CloseWin){
if (gi_Canceled)
if (gi_WindowActive){
gi_RequestClose=1;
while(gi_RequestClose);
}
return gi_Canceled;
}
__declspec(dllexport) int pascal CloseStatusWindow(){
if (gi_WindowActive){
gi_RequestClose=1;
while(gi_RequestClose);
}
return gi_Canceled;
}
(2)窗体StatusForm的代码： TStatusForm＊StatusForm;
extern int gi_Canceled;
extern int gi_AVIType;
extern TCommonAVI g_CommonAVI[];
__fastcall TStatusForm::TStatusForm
(HWND ParentWindow)