03 2012 档案

delphi xe2样式的一个小bug
摘要:在一个偶然的下,在xe2下创建了一个vcl窗体, 然后在project>options>apperrance里customs styles里选 上了一个样式(windows外),再在下的default styles下选中刚添加的样式, ok, F9运行,点击标题栏最大化,问题来了: 这样你谅不能点击右上角的最大化,最小化 ,关闭, 也不能双击标题栏了 ,也只能标题栏右击。 不知道这算不算是bug, 或者是我那里设置有问题 呵呵 阅读全文

posted @ 2012-03-26 10:03 long6 阅读(422) 评论(0) 推荐(1)

取得进程和dll
摘要:前些时候看到别人写出了这样的一个小程序:取得系统所有的进程名和其相应的dll路径,其实是很容易的,只要你懂得几个函数: CreateToolhelp32Snapshot,Module32First,Module32Next,Process32First,Process32Next, 呵呵 你了解这些东西你就会可以写出来了。 主要的代码如下:记得引用:Winapi.TlHelp32, Winapi.PsAPI,其中: List: array [0..254,0..1] of Cardinal;为全局procedure TForm1.FormShow(Sender: TObject);beg... 阅读全文

posted @ 2012-03-22 16:17 long6 阅读(546) 评论(0) 推荐(1)

Variant和Tstream这间相互转化
摘要:所在单元VariantsfunctionVarArrayLock(constA: Variant): Pointer; VarArrayLock锁定给定的变量数组,并返回一个指针数组中存储的数据。锁定时,一个Variant数组不能被调整和任何VarArrayRedim的调用将失败。一旦锁定,一个Variant数组必须使用VarArrayUnlock后来被解锁。如果由一个给定的变种,是不是一个数组,一个EVariantError将引发异常。返回的指针数组元素,其中最左边的尺寸先增加VarArrayLock点。换句话说,返回的数组指针的尺寸逆转从变异阵列的尺寸。VarArrayLock一旦被证.. 阅读全文

posted @ 2012-03-07 15:22 long6 阅读(677) 评论(0) 推荐(1)

导航