- 博客(7)
- 收藏
- 关注
转载 C++ sdk 创建桌面快捷方式
static bool CreateLink() { HRESULT hr = CoInitialize(NULL);if (SUCCEEDED(hr)){IShellLink *pisl;hr = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_IShellLinkA, (v
2012-03-09 09:51:07 445
转载 C++ sdk 获取执行文件所在路径
TCHAR szFilePath[MAX_PATH + 1]={0}; GetModuleFileName(NULL, szFilePath, MAX_PATH); (_tcsrchr(szFilePath, _T('\\')))[1] = 0;szFilePath即为所在路径这段代码很简单,唯一有点难度的就是最后一句(_tcsrchr(szFilePath, _T('
2012-03-09 09:47:54 482
原创 Delphi中预编译指令的使用方法
<br /><br /><br />在Delphi中,也有与C相似的预编译指令,虽然该类指令只在当前的单个文件有效(也有可能是笔者未全面了解该类指令的真正用法),但是这一类指令对于进行多版本的制作工作(如从标准版中出学习版),确实有着相当不错的用途。 <br /><br /><br />一.指令介绍: <br /><br />1. DEFINE指令: <br /><br />格式:{$DEFINE 名称} <br /><br />说明 :用于定义一个在当前单元有效的符号(Symbol)。定义了
2010-07-26 09:22:00 306
转载 delphi中exit,abort,break,continue 的区别
<br />exit: 退出函数体<br />abort: 遇到异常,安静处理,就是不显示不提示<br />break: 退出当前循环体,包括for ,while, repeat等循环体<br />continue: 结束循环内的本次处理,继续从循环体的开始位置继续执行<br /> <br />Exit 是跳出当前代码块,也就是当前函数,跳出后是要继续向下执行的(如果有后续代码)。<br />Abort 是从 EAbort 过来的,可以激发 exception,其实质就是 Abort = RaiseExce
2010-07-26 09:02:00 289
转载 网络文本函数(三)
<br />function YzListViewColumnCount(mHandle: THandle): Integer;<br />begin<br />Result := Header_GetItemCount(ListView_GetHeader(mHandle));<br />end; { ListViewColumnCount }<br />function YzGetListViewText(mHandle: THandle; mStrings: TStrings): Boolean;<b
2010-07-21 11:40:00 370
原创 网络文本函数(二).txt
<br /><br />YzWaitWindowExist(lpClassName, lpWindowName: PAnsiChar;<br />ASecond: Integer = 0): THandle;overload;<br />var<br />StartTickCount, PassTickCount: LongWord;<br />begin<br />Result := 0;<br />{ 永久等待 }<br />if ASecond = 0 then<br />begin<br />
2010-07-21 11:38:00 392
转载 delphi操作快捷方式
<br />DELPHI中的快捷方式一览<br /> 1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)<br /> 2.Shift+F8 调试时弹出CPU窗口。<br /> 3.Shift+F10 等于鼠标右键(Windows快捷键)。<br /> 4.Shitf+箭头 选择<br /> 5.shift +F12 快速查找窗体并打开<br /> 6.F7 (步进式调试同时追
2010-07-21 11:29:00 273
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人