摘要：//第1种方法 procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin if Ac
阅读全文
随笔分类 - Delphi学习天空
摘要：function StringToFile(mString : string; mFileName : TFileName) : Boolean;var vFileChar : file of Char; I : Integer;begin {$I-} AssignFile(vFileChar ,
阅读全文
摘要：//delphi DecodeUtf8Str解决系统自带UTF8解码缺陷 function DecodeUtf8Str(const S: UTF8String): WideString; var lenSrc, lenDst : Integer; begin l...
阅读全文
摘要：delphi中Application.MessageBox函数用法详解Application.MessageBox是TApplication的成员函数，声明如下：functionTApplication.MessageBox(constText,Caption:PCh...
阅读全文
摘要：用记事本打开*.dof文件,把这行[Resource DLL Projects]及它的所属的内容删除就行了.
阅读全文
摘要：原标题：我和雷军一起推销的日子媒体已经习惯于曝光太多成功人物：「出名要趁早」，「三十岁之前必须要做的事」，「20岁不功利，40岁怎么淡泊名利」……偶像太多，可是有谁看到了他们抬头低头间的平凡岁月？以下分享这篇文章，来自馒头商学院创始人王欣极度真诚的自白。她在整个采访中...
阅读全文
摘要：软件名称：AutoUpdate.exe 软件版本：[2018.3.23.1] 软件功能：实现升级程序自身升级和更新主程序； 主要流程：主程序启动 主程序检测到新版本 主程序退出，启动升级程序--升级程序启动 检测升级程序自身版本 发现升级程序新版本 重命名升级程序--下载升级程序--退出旧升级程序，
阅读全文
摘要：一.Dll调用时报错，例如： TGetResPrice = function(var AName: string; AFileName: string): TResourceRecArray; stdcall; var LFunction: TGetResPrice; 调用： @LFunction
阅读全文
摘要：网上很多把HTML转换成纯文本格式的方法很多思路都是用正则表达式或者分析html代码替换的方法。本文是利用IE完成转换，即利用IHTMLDocument2接口。Denon天Denon龙Denon 转换结果：uses MSHTML;funct...
阅读全文
摘要：delphi中有直接把10进制转换成16进制的函数： function IntToHex(Value: Integer; Digits: Integer): string; overload; function IntToHex(V...
阅读全文
摘要：常用的邮箱服务器（SMTP、POP3）地址、端口 详见：http://blog.yemou.net/article/query/info/tytfjhfascvhzxcyt312 gmail(google.com) POP3服务器地址:pop.gmail.com（SSL启用 端口：995） SMTP
阅读全文
摘要：type TForm1 = class(TForm) public published procedure DoJsCall(str:string); /...
阅读全文
摘要：procedure TForm1.btn1Click(Sender : TObject); var m : Integer; s : string; strlst : TStrings; begin strlst := TStringList.Create; strlst.Add('张三=80');
阅读全文
摘要：AdjustWindowRect 给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小AnyPopup 判断屏幕上是否存在任何弹出式窗口ArrangeIconicWindows 排列一个父窗口的最小化子窗口AttachThreadInput 连接线程输入函数Begi...
阅读全文
摘要：NT平台拨号连接密码恢复原理创建时间：2004-11-08 更新时间：2004-11-12文章属性：原创文章提交：eyas (eyas_at_xfocus.org)NT平台拨号连接密码恢复原理Author : eyasEmail : eyas at xfocus.o...
阅读全文
摘要：if exists(select 1 from sysobjects where name='P_PreOrderInfo')drop Procedure P_PreOrderInfogoCreate Procedure P_PreOrderInfo @RefS...
阅读全文
摘要：1.屏蔽Float浮点数出错：Set8087CW(Longword($133f));2.Idhttp参数设置： FIdhttp := TIdHTTP.Create(nil); FSSL := TIdSSLIOHandlerSock...
阅读全文
摘要：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(
阅读全文
摘要：delphi 7 delphi 8delphi 2005 ----- 9delphi 2006 ----- 10 delphi 2007 ----- 11delphi 2009 ----- 12 delphi 2010 ----- 14delphi xe ----...
阅读全文
摘要：Delphi获取本机的MAC地址：uses NB30;function GetAdaPterInfo(lana: Char): string;var Adapter: TAdapterStatus; NCB: TNCB;begin FillChar(NCB,S...
阅读全文
浙公网安备 33010602011771号