博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  Delphi相关

摘要:更改 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)

摘要:动态数组数组名代表的是第一个元素的内存地址.静态数组名称代表的是数组第一个元素的内存位置, 而不是数组第一个元素的内存地址.但对于静态数组,在某些情况下编译器可能会自动取数组地址,如: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)

摘要: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 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)

摘要:// 相关定义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)

摘要: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)

摘要: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)