GifLib.iss 829 B

123456789101112131415161718192021222324252627
  1. [Files]
  2. Source: compiler:GifLib.dll; DestDir: {tmp}; Flags: dontcopy noencryption
  3. [Code]
  4. //初始化创建Gif图像组件于父句柄
  5. function GifInit(HWD: HWND):Integer;
  6. external 'GifInit@files:GifLib.dll stdcall';
  7. //设置Gif图像组件大小与位置
  8. Procedure GifSetBounds(Handle, Left, Top, Width, Height: Integer);
  9. external 'GifSetBounds@files:GifLib.dll stdcall';
  10. //设置Gif图像组件图片文件
  11. Procedure GifSetFile(Handle: Integer; FileName: AnsiString);
  12. external 'GifSetFile@files:GifLib.dll stdcall';
  13. //设置Gif图像组件父句柄
  14. Procedure GifSetParentWindow(Handle: Integer; HWND: HWND);
  15. external 'GifSetParentWindow@files:GifLib.dll stdcall';
  16. //释放指定句柄的Gif图像组件
  17. Procedure GifFree(Handle: Integer);
  18. external 'GifFree@files:GifLib.dll stdcall';
  19. //释放全部Gif图像组件
  20. Procedure GifAllFree;
  21. external 'GifAllFree@files:GifLib.dll stdcall';