abc

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

随笔分类 -  Delphi学习天空

1 2 下一页

摘要://第1种方法 procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin if Ac 阅读全文
posted @ 2018-07-23 15:36 &大王叫我来巡山& 阅读(431) 评论(0) 推荐(0)

摘要:function StringToFile(mString : string; mFileName : TFileName) : Boolean;var vFileChar : file of Char; I : Integer;begin {$I-} AssignFile(vFileChar , 阅读全文
posted @ 2018-07-10 10:06 &大王叫我来巡山& 阅读(870) 评论(0) 推荐(0)

摘要://delphi DecodeUtf8Str解决系统自带UTF8解码缺陷 function DecodeUtf8Str(const S: UTF8String): WideString; var lenSrc, lenDst : Integer; begin l... 阅读全文
posted @ 2018-06-07 14:12 &大王叫我来巡山& 阅读(1239) 评论(0) 推荐(0)

摘要:delphi中Application.MessageBox函数用法详解Application.MessageBox是TApplication的成员函数,声明如下:functionTApplication.MessageBox(constText,Caption:PCh... 阅读全文
posted @ 2018-05-07 13:51 &大王叫我来巡山& 阅读(688) 评论(0) 推荐(0)

摘要:用记事本打开*.dof文件,把这行[Resource DLL Projects]及它的所属的内容删除就行了. 阅读全文
posted @ 2018-04-02 14:43 &大王叫我来巡山& 阅读(204) 评论(0) 推荐(0)

摘要:原标题:我和雷军一起推销的日子媒体已经习惯于曝光太多成功人物:「出名要趁早」,「三十岁之前必须要做的事」,「20岁不功利,40岁怎么淡泊名利」……偶像太多,可是有谁看到了他们抬头低头间的平凡岁月?以下分享这篇文章,来自馒头商学院创始人王欣极度真诚的自白。她在整个采访中... 阅读全文
posted @ 2018-03-26 11:33 &大王叫我来巡山& 阅读(318) 评论(0) 推荐(0)

摘要:软件名称:AutoUpdate.exe 软件版本:[2018.3.23.1] 软件功能:实现升级程序自身升级和更新主程序; 主要流程:主程序启动 主程序检测到新版本 主程序退出,启动升级程序--升级程序启动 检测升级程序自身版本 发现升级程序新版本 重命名升级程序--下载升级程序--退出旧升级程序, 阅读全文
posted @ 2018-03-23 21:47 &大王叫我来巡山& 阅读(623) 评论(1) 推荐(0)

摘要:一.Dll调用时报错,例如: TGetResPrice = function(var AName: string; AFileName: string): TResourceRecArray; stdcall; var LFunction: TGetResPrice; 调用: @LFunction 阅读全文
posted @ 2018-03-05 14:57 &大王叫我来巡山& 阅读(410) 评论(0) 推荐(0)

摘要:网上很多把HTML转换成纯文本格式的方法很多思路都是用正则表达式或者分析html代码替换的方法。本文是利用IE完成转换,即利用IHTMLDocument2接口。Denon天Denon龙Denon 转换结果:uses MSHTML;funct... 阅读全文
posted @ 2018-02-09 15:26 &大王叫我来巡山& 阅读(786) 评论(0) 推荐(0)

摘要:delphi中有直接把10进制转换成16进制的函数: function IntToHex(Value: Integer; Digits: Integer): string; overload; function IntToHex(V... 阅读全文
posted @ 2018-02-09 14:07 &大王叫我来巡山& 阅读(224) 评论(0) 推荐(0)

摘要:常用的邮箱服务器(SMTP、POP3)地址、端口 详见:http://blog.yemou.net/article/query/info/tytfjhfascvhzxcyt312 gmail(google.com) POP3服务器地址:pop.gmail.com(SSL启用 端口:995) SMTP 阅读全文
posted @ 2017-12-22 09:00 &大王叫我来巡山& 阅读(732) 评论(0) 推荐(0)

摘要:type TForm1 = class(TForm) public published procedure DoJsCall(str:string); /... 阅读全文
posted @ 2017-09-14 11:13 &大王叫我来巡山& 阅读(558) 评论(0) 推荐(0)

摘要:procedure TForm1.btn1Click(Sender : TObject); var m : Integer; s : string; strlst : TStrings; begin strlst := TStringList.Create; strlst.Add('张三=80'); 阅读全文
posted @ 2017-09-01 10:20 &大王叫我来巡山& 阅读(1158) 评论(0) 推荐(0)

摘要:AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小AnyPopup 判断屏幕上是否存在任何弹出式窗口ArrangeIconicWindows 排列一个父窗口的最小化子窗口AttachThreadInput 连接线程输入函数Begi... 阅读全文
posted @ 2016-10-31 19:53 &大王叫我来巡山& 阅读(694) 评论(0) 推荐(0)

摘要:NT平台拨号连接密码恢复原理创建时间:2004-11-08 更新时间:2004-11-12文章属性:原创文章提交:eyas (eyas_at_xfocus.org)NT平台拨号连接密码恢复原理Author : eyasEmail : eyas at xfocus.o... 阅读全文
posted @ 2016-08-01 22:29 &大王叫我来巡山& 阅读(600) 评论(0) 推荐(0)

摘要:if exists(select 1 from sysobjects where name='P_PreOrderInfo')drop Procedure P_PreOrderInfogoCreate Procedure P_PreOrderInfo @RefS... 阅读全文
posted @ 2016-05-18 17:54 &大王叫我来巡山& 阅读(1296) 评论(0) 推荐(0)

摘要:1.屏蔽Float浮点数出错:Set8087CW(Longword($133f));2.Idhttp参数设置: FIdhttp := TIdHTTP.Create(nil); FSSL := TIdSSLIOHandlerSock... 阅读全文
posted @ 2016-03-16 17:11 &大王叫我来巡山& 阅读(338) 评论(0) 推荐(0)

摘要:function HttpEncode(S:AnsiString):string; var P:^Byte; I:Cardinal; begin Result:=''; P:=@S[1]; Result:=Format('%%%x',[Ord(P^)]); for I := 1 to Length( 阅读全文
posted @ 2016-03-09 21:52 &大王叫我来巡山& 阅读(401) 评论(0) 推荐(0)

摘要:delphi 7 delphi 8delphi 2005 ----- 9delphi 2006 ----- 10 delphi 2007 ----- 11delphi 2009 ----- 12 delphi 2010 ----- 14delphi xe ----... 阅读全文
posted @ 2015-12-25 09:40 &大王叫我来巡山& 阅读(334) 评论(0) 推荐(0)

摘要:Delphi获取本机的MAC地址:uses NB30;function GetAdaPterInfo(lana: Char): string;var Adapter: TAdapterStatus; NCB: TNCB;begin FillChar(NCB,S... 阅读全文
posted @ 2015-12-03 16:55 &大王叫我来巡山& 阅读(1098) 评论(0) 推荐(0)

1 2 下一页