Delphi相关 - 随笔分类 - wlmbz

改变代理服务器

摘要：更改 IE 代理服务器设置 ,不重新启动 IE,代码如下 :但如何设置某种协议为一特定地址呢 ,BYPASS 参数怎么用 ?其实在 proxyserver 中 http=205.207.118.51:80;https=205.207.118.51:80;gopher=205.207.118.51:8... 阅读全文

posted @ 2015-10-29 01:53 wlmbz 阅读(401) 评论(0) 推荐(0)

在Delphi中,关于数组名称

摘要：动态数组数组名代表的是第一个元素的内存地址.静态数组名称代表的是数组第一个元素的内存位置, 而不是数组第一个元素的内存地址.但对于静态数组,在某些情况下编译器可能会自动取数组地址,如:function GetWinClassName(hwnd:HWND):string;varbuf1 : array... 阅读全文

posted @ 2014-05-09 09:47 wlmbz 阅读(307) 评论(0) 推荐(0)

摘要：Delphi 获取进程路径及命令行参数, 但有的进程获取时会报错,不知为啥type PVOID64 = UINT64; _UNICODE_STRING = packed record Length : USHORT; MaximumLength : USHORT; Buffer : PWideChar; end; UNICODE_STRING = _UNICODE_STRING; PUNICODE_STRING =^_UNICODE_STRING; _UNICODE_STRING64 = packed record Length : USHORT; M... 阅读全文

posted @ 2014-03-11 19:02 wlmbz 阅读(2332) 评论(0) 推荐(0)

植物大战僵尸中文第二版和年度版游戏分析及delphi源码

摘要：00413184 |. E8 77E30100 |CALL PlantsVs.00431500 ; 地上的物品00413189 |. 8D7424 10 |LEA ESI,DWORD PTR SS:[ESP+10]0041318D |. 8BD3 |MOV EDX,EBX0041318F |. E8 7C980000 |CALL PlantsVs.0041CA1000413194 |. 84C0 |TEST AL,AL00413196 |.^ 75 E8 \JNZ SHORT PlantsVs.0041318000413198 |> 8D7424 10 LEA ESI,DWORD PTR 阅读全文

posted @ 2013-09-04 13:17 wlmbz 阅读(962) 评论(0) 推荐(0)

Delphi推出Delphi XE4支持IOS开发

摘要：Delphi 新推出 Delphi XE4 ，这是一个支持 iOS 应用开发的新版本。Delphi XE4 带来 Embarcadero 全新的 ARM 编译器下载地址阅读全文

posted @ 2013-09-03 15:39 wlmbz 阅读(232) 评论(0) 推荐(0)

关于同一线程中临界区编程的

摘要：对于临界区，我常常在多线程编程中使用，来保护关键代码段，像下面的代码：type TClient=class private FLock: TRTLCriticalSection; public procedure Lock; procedure UnLock; constructor Create; destructor Destroy; override; end; implementation procedure TClient.Lock; begin EnterCrit... 阅读全文

posted @ 2013-09-02 17:54 wlmbz 阅读(499) 评论(3) 推荐(0)

Delphi - 在ListView中添加一个进度条

摘要：// 相关定义Type TListData = Record FileName: String; Percent: Integer; End; PListData = ^TListData; // 需要Use CommCtrlFunction GetSubItemRect(handle, ItemsIndex, SubIndex: Integer): TRect;Begin ListView_GetSubItemRect(handle, ItemsIndex, SubIndex, 0, @Result);End;Procedure TFormMain.lvw_listCu... 阅读全文

posted @ 2013-09-02 17:47 wlmbz 阅读(752) 评论(0) 推荐(0)

用EnumDisplaySettings获取显示设置信息

摘要：LPDEVMODEpMode=newDEVMODE;//开空间DWORDdwBitsPerPel=0;//每象素所使用的显存位数（Bits）DWORDdwPelsWidth=0;//水平分辨率（点数）DWORDdwPelsHeight=0;//垂直分辨率（点数）DWORDdwDisplayFrequency=0;//显示刷新率，以赫兹为单位EnumDisplaySettings(NULL,ENUM_CURRENT_SETTINGS,pMode);//获得当前设备的显示模式dwBitsPerPel=pMode->dmBitsPerPel;dwPelsWidth=pMode->dmPe 阅读全文

posted @ 2013-08-31 19:18 wlmbz 阅读(1668) 评论(0) 推荐(0)

Delphi操作系统菜单

摘要：1 unit Unit1;2 3 interface4 5 uses6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,7 Dialogs, StdCtrls, Menus;8 9 type10 TForm1 =class(TForm)11 ButtonAddMenu: TButton;12 ButtonResetMenu: TButton;13 ButtonDeleteMenu: TButton;14 procedure ButtonAddMenuClick(Sender: TObject); 阅读全文

posted @ 2011-04-19 16:51 wlmbz 阅读(347) 评论(0) 推荐(0)

玄天南瓜的博客

公告

随笔分类 - Delphi相关