<br />
<b>Deprecated</b>:  mysql_escape_string(): This function is deprecated; use mysql_real_escape_string() instead. in <b>/www/wwwroot/www.2pascal.com/web/source/class/discuz/discuz_database.php</b> on line <b>177</b><br />
<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>2Pascal-新时代的Pascal - delphi xe 讨论区</title>
    <link>http://www.2pascal.com/forum-50-1.html</link>
    <description>Latest 20 threads of delphi xe 讨论区</description>
    <copyright>Copyright(C) 2Pascal-新时代的Pascal</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Fri, 06 Nov 2026 15:10:50 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>http://www.2pascal.com/static/image/common/logo_88_31.gif</url>
      <title>2Pascal-新时代的Pascal</title>
      <link>http://www.2pascal.com/</link>
    </image>
    <item>
      <title>外部调用怎么都不行的怪问题？？</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3154</link>
      <description><![CDATA[遇到个看似简单但无法解决的问题，[/backcolor]
 一个按钮事件调用外部程序，winexec(\'displayswitch.exe\',SW_normal); 这段代码在WIN7下运行正常，无任何问题，但是在WIN10下不管用winexec ShellExecute CreateProcess ,外加cmd /c 来调用均无反映，求高人指点 了。。 ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>worm</author>
      <pubDate>Mon, 07 Oct 2019 07:07:48 +0000</pubDate>
    </item>
    <item>
      <title>WIN VCL 强制 TWebBrowser 控件使用指定 IE 版本显示网页 版本模拟</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3114</link>
      <description><![CDATA[WIN VCL 强制 TWebBrowser 控件使用指定 IE 版本显示网页 版本模拟.txt

**** 本内容被作者隐藏 ****]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Mon, 22 Apr 2019 19:41:51 +0000</pubDate>
    </item>
    <item>
      <title>JavaTimestamp Java 时间戳 和 Delphi DateTime 互转</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3036</link>
      <description><![CDATA[Unix 时间戳，我们 DLEPHI 早已经内置了。
新版本的 支持 UTC 了。
但是 JAVA 的，没有内置。
不过就是 差 1000 而已。
小学生的水平，就能写的代码。

不要使用 复制代码 按钮。可能会乱。

**** 本内容被作者隐藏 **** ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Thu, 14 Mar 2019 01:43:53 +0000</pubDate>
    </item>
    <item>
      <title>一段D7可以编译通过的代码在delphi 10.2.3上编译不通过，求...</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3020</link>
      <description><![CDATA[部分代码：
procedure TFileWatchThread.Execute;
var
  numBytes: DWORD;
  CompletionKey: DWORD;

  begin
  while not Terminated do
  begin
    GetQueuedCompletionStatus( FPCompletionPort^, numBytes, CompletionKey, FPOverlapped, INFINITE);

    if Comp]]></description>
      <category>delphi xe 讨论区</category>
      <author>worm</author>
      <pubDate>Mon, 22 Oct 2018 22:56:19 +0000</pubDate>
    </item>
    <item>
      <title>通过进程名获取该进程的完整路径的问题~</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3018</link>
      <description><![CDATA[delphi XE 10.2.3,用下面的函数： 【调用是: ShowMessage(GetPathFileofModule(\'explorer.exe\'));     要uses TlHelp32,psapi;】在32位系统下可以获取到路径，但是在64位系统下就不行了。寻大神指点~~~~

[mw_shl_code=delphi,true]function GetPathFileofModule(Module ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>worm</author>
      <pubDate>Tue, 09 Oct 2018 04:49:45 +0000</pubDate>
    </item>
    <item>
      <title>求能准确识别操作系统产品版本的DELPHI 代码~</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3017</link>
      <description><![CDATA[新的XE有TOSVersion.ToString 这个函数可以直接显示出完整的操作系统版本号和SP号。还有是多少位的系统。但是有个缺陷就是不能显示是专业版，还是家庭版，还是旗舰版。。查找了一下百度好像没有发现相关的资料。没头绪了!.在Winapi.Windows.pas 文件里发现有
//
// Prod ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>worm</author>
      <pubDate>Sat, 22 Sep 2018 06:03:19 +0000</pubDate>
    </item>
    <item>
      <title>delphi 让服务启动失败后总是恢复 LetServiceAlwaysReboot</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3016</link>
      <description><![CDATA[[mw_shl_code=c,true]
BOOL WINAPI LetServiceAlwaysReboot(LPCTSTR ServiceName){
]]></description>
      <category>delphi xe 讨论区</category>
      <author>worm</author>
<enclosure url="/forum/if (hSCManager != NULL){
" length="" type="image/jpeg" />      <pubDate>Thu, 20 Sep 2018 19:58:43 +0000</pubDate>
    </item>
    <item>
      <title>FireDac 打开带加密 Sqlite3 x86 x64 win32 win64 demo 代码</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3015</link>
      <description><![CDATA[注意
默认 FireDAC 是静态编译的 sqlite 库。也就是不采用 DLL 的。
如果要编译支持 dll 的版本需要修改
FireDAC.inc
至少还需要
FireDAC.Phys.SQLite.pas
FireDAC.Phys.SQLiteCli.pas
FireDAC.Phys.SQLiteWrapper..pas
重新编译。
懒得重新编译，就将如上 4 个文件放到 ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Mon, 10 Sep 2018 18:06:41 +0000</pubDate>
    </item>
    <item>
      <title>ZwQuerySystemInformation 安全使用心得 Delphi 版</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3001</link>
      <description><![CDATA[请不要用复制代码按钮。

作为 DELPHI 版本，需要引用 jwaNative, JwaWinType ，他们是 JEDI API 的一部分。JEDI 官网有下载。

先给出 2 个辅助函数 和 一些结构体。

[mw_shl_code=delphi,true]type        
  PRecord = ^TRecord;  
  TRecord = record
  end;  
    ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Mon, 15 Jan 2018 17:54:36 +0000</pubDate>
    </item>
    <item>
      <title>很久以前写的一个 ShareRestrictedSD 类</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3000</link>
      <description><![CDATA[代码中一开始的 几个 USES 单元，可能是多余的。请大家不要用复制代码按钮。

**** 本内容被作者隐藏 ****


特别声明
禁止 win2003 (楚凡) QQ635887 使用本人修改的内容

禁止 qiuyan81 (苦恋树) QQ46494153 使用本人修改的内容。

禁止 gfuchao  QQ82715485 使用本人 ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Mon, 15 Jan 2018 17:53:02 +0000</pubDate>
    </item>
    <item>
      <title>可以中文化的自定义对话框单元。MessageDlgCN</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2999</link>
      <description><![CDATA[首先，代码原本是 DELPHI7  的，而且不是我写的。
原作者大概是我公司的一个高管，要么就是网络上的高手。

我修改的是 XE2 版本，自然支持 Unicode ，支持 TaskDialog。

整个单元都给大家，请不要使用复制代码按钮

[mw_shl_code=delphi,true]///    
///      中文版 ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Mon, 15 Jan 2018 17:44:58 +0000</pubDate>
    </item>
    <item>
      <title>fdquery数据无法更新到数据库</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2984</link>
      <description><![CDATA[if FDQuery1.State in dseditmodes then
      fdquery1.Post;
   if fdquery1.ChangeCount&gt;0 then
   begin
   //showmessage(\'dfdfddfd\');
   fdmemtable1.Data:=fdquery1.Delta;
    ierrors:=fdquery1.ApplyUpdates();
    if ierrors=0 then
     begin
]]></description>
      <category>delphi xe 讨论区</category>
      <author>25969839@qq.com</author>
      <pubDate>Wed, 20 Dec 2017 01:56:20 +0000</pubDate>
    </item>
    <item>
      <title>新人问题applyUpdates</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2983</link>
      <description><![CDATA[FireDac,环境里ＸＥ１０.２ＴＯＫＹＯ,数据库存为ＳＱＬＩＴＥ，安装的ＤＥＭＯ里使用TFDSchemaAdapter如何ＡＰＰＬＹＵＰＤＡＴＥＳ主从表。主从表的的两个ＦＤＭＥＭＴＡＢＬＥ通过ＦＤＣＯＭＭＡＮＤ获取数据都成功了，当修改从表数据里，点击保存无反应。ＣＡＣＨＥ ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>25969839@qq.com</author>
      <pubDate>Tue, 19 Dec 2017 07:15:36 +0000</pubDate>
    </item>
    <item>
      <title>想用匿名线程执行一个带参数的函数？</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2980</link>
      <description><![CDATA[在 2ccc
TThread.CreateAnonymousThread(过程名).Start;
有人说 ，希望这个过程带参数。

其实，第一个回复他的人，说得非常对。
自己写一个是最简单的做法，而且非常的简单。

不要用 复制代码  的按钮。

**** 本内容被作者隐藏 ****

上述例子，只是一个参数，您可以 ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Sun, 10 Dec 2017 03:37:46 +0000</pubDate>
    </item>
    <item>
      <title>32位应用程序访问64位注册表的办法，禁止注册表重定向</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2941</link>
      <description><![CDATA[在 Win 64 系统上，32位应用程序访问注册表的 HKEY_LOCAL_MACHINE 下 SOFTWARE 下面 的东西，都会被重定向到 WOW6432Node

下面的代码告诉你，如何正确访问到 64位的注册表

不要使用复制代码功能。

**** 本内容被作者隐藏 **** ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Fri, 02 Jun 2017 08:29:56 +0000</pubDate>
    </item>
    <item>
      <title>Win 64，32位应用程序访问system32文件的办法，禁止文件重定向</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2940</link>
      <description><![CDATA[在 Win 64 系统上，32位应用程序访问 system32 下文件夹下面 的东西，都会被重定向到 SysWOW64 目录下
使用下面的一个 fmx 提供的类型，可以方便的临时禁止重定向。

不要使用复制代码功能。

**** 本内容被作者隐藏 ****

 ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Fri, 02 Jun 2017 07:04:09 +0000</pubDate>
    </item>
    <item>
      <title>Delphi RoundToFix5 四舍五入 非银行家算法</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2736</link>
      <description><![CDATA[不要用 复制代码  的按钮。

[mw_shl_code=delphi,false]
/// 
///   四舍五入。
///   要正负一致
///   By 爱吃猪头肉。
///  可能 10.2.3 已经修改了这个负数的 bug，但是 Double 依然有问题。
/// 
function RoundToFix5(const AValue: Extended;
    const ADigit: ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Fri, 24 Mar 2017 11:11:45 +0000</pubDate>
    </item>
    <item>
      <title>vclskin xe5修改版</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2648</link>
      <description><![CDATA[毛子网站抓下来的，xe3，xe10使用正常，可惜只能用在vcl上]]></description>
      <category>delphi xe 讨论区</category>
      <author>admin</author>
      <pubDate>Tue, 01 Mar 2016 12:37:30 +0000</pubDate>
    </item>
    <item>
      <title>解决INDY组件IDHTTP ConnectTimeout 超时问题(转载)</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2643</link>
      <description><![CDATA[原帖地址：
http://www.piaoyi.org/delphi/INDY-IDHTTP-chaoshi.html
正文：
 飘易在以前的博文里曾经提起过INDY组件IDHTTP超时问题，链接：《INDY组件IDFTP/IDHTTP的connecttimeout超时问题》，在那篇文字里，我采用了ICS的组件代替INDY组件的方法解决这个超时问题。今 ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>wang_80919</author>
      <pubDate>Thu, 21 Jan 2016 03:41:55 +0000</pubDate>
    </item>
    <item>
      <title>在开发者路上，32位开发时代，D7是最经典的工具，可是到...</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2631</link>
      <description><![CDATA[在开发者路上，32位开发时代，XP系统上D7是最经典的工具，那个时候，经典的书籍也是到处可找，可是到了现在，Delphi自被收购后，也不断出新的版本，但对于我们国内的学者，特别是后来的爱好者，要学习新的Delphi开发工具，却找不到好的书籍，痛苦中....... ...]]></description>
      <category>delphi xe 讨论区</category>
      <author>欢乐无线</author>
      <pubDate>Tue, 17 Nov 2015 03:43:35 +0000</pubDate>
    </item>
  </channel>
</rss>