
delphi
tomyjohn
这个作者很懒,什么都没留下…
展开
-
文本替换
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, ComCtrls;type TForm1 = class(TForm) Button1: TButton; Fi原创 2010-03-27 11:06:00 · 400 阅读 · 0 评论 -
PHP若干问题集(1)——smarty模板页面插入JS代码
在smarty模板的*.tpl中不能直接写入JS代码。必须先将JS代码写入到一个JS文件之中,再在*.tpl文件中写入下列代码:{popup_init src="css/commen.js"} “css/commen.js”是你的JS文件所在的位置。原创 2011-04-06 15:07:00 · 2001 阅读 · 1 评论 -
用DELPHI来启动JAR文件
<br /> 在WINDOWS大行其道的时候,我们这些在WINDOWS下打工的PROGRAMMER也只能用着那些可能极易破碎的EXE文件。但是存大即合理,所以既然JAVA的魅力这么大,我也只能退而求其次,试着用EXE文件来启动JAR。<br /> 既然决定这么做,那么首先,我们必须有DELPHI编译器,我用的DELPHI7,在网上搜了一段程序<br />program launcher;uses Windows;var si: TStartupInfo; p原创 2011-05-27 12:57:00 · 4047 阅读 · 0 评论 -
最简单的PHP开发环境搭建
最近发现一个很简单的,适合初学者的PHP开发环境,整个环境只有三样东东,PHP ,APACHE , MYSQL但是对于初学PHP的人来说,己经足够了。如果有兴趣的话可以直接去百度PNLITE,笔者为了方便自己,写了个EXE文件来执行,并且打包了整个开发环境。下载地址 http://download.youkuaiyun.com/detail/tomyjohn/8264301软件使用方法:点击“原创 2014-12-16 09:20:42 · 2548 阅读 · 0 评论 -
delphi7下运行CMD命令并获取输出
procedure CheckResult(b: Boolean);begin if not b then raise Exception.Create(SysErrorMessage(GetLastError));end; function RunDOS(const CommandLine: string): string;var HRead, HWrite: THa转载 2015-03-09 16:09:49 · 6482 阅读 · 1 评论 -
delphi组件注册函数
function RegisterOleFile(strOleFileName: STRING; OleAction: Byte): BOOLEAN;const RegisterOle = 1; // 注册 UnRegisterOle = 0; // 卸载type TOleRegisterFunction = function: HResult; // 注册或卸载函数的原型va...原创 2019-08-23 20:50:34 · 521 阅读 · 0 评论