摘要: 1.ACCESS数据表名test,字段id字符,字段photo为OLE2.在DELPHI窗体中添加ADOQuery1,OpenDialog1,Image1,Button1,Button2,Button3设置OpenDialog1的Filter为“JPEG文件(*.jpg;*.jpeg)|*.jpg;*.jpeg”设置Button1的Caption为“Open Image”设置Button2的Caption为“Save Image”设置Button3的Caption为“Show Image”代码如下:procedure TForm1.Button1Click(Sender: TObject);b 阅读全文
posted @ 2013-01-26 15:53 冰意 LceMeaning 阅读(3332) 评论(0) 推荐(0)
摘要: BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识 UINT fsModifiers, //该热键的辅助按键 UINT vk //该热键的键值 ); 为了得到唯一标识,我们还将用到另一个API函数 ATOM GlobalAddAtom( LPCTSTR lpString //自己设定的一个字符串 ); 因为我们还要在程序退出的时候,消除这个热键, 所以需要声明一个全局变量: HotKeyId: Integer; 第一步: 在窗口的create事件中,加入以下代码 HotKeyId := GlobalAddAtom(‘M 阅读全文
posted @ 2013-01-26 15:47 冰意 LceMeaning 阅读(362) 评论(0) 推荐(0)