易语言复制GIF源码

系统结构:复制图像到剪辑板,通用对话框,GetOpenFileNameA,LocalSize,GetModuleHandle,GetSaveFileNameA,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 复制图像到剪辑板
           |  |
           |  |------ 通用对话框
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetOpenFileNameA
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   GetSaveFileNameA

调用的DLL命令:

.DLL命令 GetOpenFileNameA, 整数型, "comdlg32.dll", "GetOpenFileNameA", , 建立文件名对话框
    .参数 pOpenfilename, OPENFILENAME

.DLL命令 LocalSize, 整数型, "kernel32", "LocalSize", , 返回本地内存块大小
    .参数 hMem, OPENFILENAME

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄  如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 整数型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;

.DLL命令 GetSaveFileNameA, 整数型, "comdlg32.dll", "GetSaveFileNameA", , 建立文件名保存对话框
    .参数 pOpenfilename, OPENFILENAME