aaaaaaaaaaaa
代码改变世界

随笔分类 -  delphi

lazarus 使用微软detour库 delphi

2021-01-27 13:26 by 二进制乐谱, 306 阅读, 收藏,
摘要: 导出函数供lazarus使用function DetourAttach( ppPtr:DWORD;pDetour:DWORD):DWORD;stdcall; external 'mydetour' name 'DetourAttach'; function DetourTransactionBegi 阅读全文

Error: Duplicate resource: Type = 24, Name = 1, Lang ID = 0000

2021-01-26 14:03 by 二进制乐谱, 175 阅读, 收藏,
摘要: Error: Duplicate resource: Type = 24, Name = 1, Lang ID = 0000报这个错,存在两个mainfest文件 勾掉 阅读全文

delphi lazarus dll静态调用

2021-01-26 13:04 by 二进制乐谱, 351 阅读, 收藏,
摘要: //procedure SetHook(dwThreadId: DWORD; pid: DWORD); stdcall; external 'mtf'; // //procedure StopHook; stdcall; external 'mtf'; 阅读全文

val

2021-01-19 12:53 by 二进制乐谱, 344 阅读, 收藏,
摘要: //将字符串转为int或者 floatprocedure TRtlForm.Button3Click(Sender: TObject); var i:Integer; begin val('123',i); ShowMessage(IntToStr(i)); end; 阅读全文

delphi pos

2021-01-19 12:38 by 二进制乐谱, 184 阅读, 收藏,
摘要: procedure TRtlForm.Button2Click(Sender: TObject); var sub, s2: string; i: integer; begin sub := '-'; s2 := '123-123'; i := Pos(sub, s2); //找到sub在s2中的位 阅读全文

delphi lazarus copy

2021-01-19 12:33 by 二进制乐谱, 85 阅读, 收藏,
摘要: procedure TRtlForm.Button1Click(Sender: TObject); var s1,s2:String; begin s1:='1234567'; //从第3个开始拷贝10个字符,超过字符长度全拷贝 s2:=Copy(s1,3,10); ShowMessage(s2); 阅读全文

delphi之tlistbox

2021-01-19 12:04 by 二进制乐谱, 183 阅读, 收藏,
摘要: 取出第i项processlist.items[i]读写数据 ListBox1.Items[10]:='设置值'; ShowMessage(ListBox1.Items[10]); 阅读全文

delpi 中TStrings 和Tstringlist

2021-01-19 11:54 by 二进制乐谱, 143 阅读, 收藏,
摘要: Tstings不能调用构造函数 Tstringlist可以 使用时,用tstringlist 传参时tstringlist可以传给参数为tstrings参数 阅读全文

c++和delphi语法对比

2021-01-19 09:15 by 二进制乐谱, 307 阅读, 收藏,
摘要: 上排c++下排delphi指针定义 char* p; var p:^char; 指针成员 ^. -> 赋值语句 = := for 结构 for(i=1;i<100;i++) { } for i:=1 to 100 do begin end 循环结构 while(true) { } while(tru 阅读全文

delphi assigned

2021-01-18 22:35 by 二进制乐谱, 156 阅读, 收藏,
摘要: assigned 判断指针是否为空,空返回假 ptr:=GetMem(SizeOf(testrecord)); if not Assigned(ptr) then begin OutputDebugString(' nil'); end; 阅读全文
aaaaaaaaaaaaa