//delphi定义方法ShellExecuteExWait用于程序执行等待，完成程序执行后再运行后面的程序或代码； procedure ShellExecuteExWait(const sProgramm: string; const sParams: string = ''; fHide: Boolean=False); var ShExecInfo: TShellExecuteInfo; be..

delphi写程序难免会有资源文件，程序调用的时候需要先释放RES资源文件，本函数ExtractRes就是专门用于释放资源文件的！Function ExtractRes(ResName, ResNewName : String):boolean;var Res : TResourceStream;begin GetWindowsDirectory(SysDir,128); //获取系统盘windows文件夹路径 Rjsflj:= copy(SysD..

Delphi函数BuileLink用于在桌面创建带图标的网站快捷方式 Function BuileLink(Shortcutlink,Shortcutico:String;Shortcutname:PChar):boolean;begintry tmpObject := CreateComObject(CLSID_ShellLink);//创建建立快捷方式的外壳扩展 tmpSLink := tmpObject as IShellLink;//取得接口 tmpPFile..

代码如下： Reg:=TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; //修改注册表的SecureProtocols项值为2720以支持SSL3.0 TLS1.0 TLS1.1 TLS1.2 if Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionInternet Settings',True) then begin Reg...

[Code]function CheckDotNet4_0():boolean; begin if RegKeyExists(HKLM, 'SOFTWAREMicrosoft.NETFrameworkpolicyv4.0') and RegKeyExists(HKLM, 'SOFTWAREMicrosoftNET Framework SetupNDPv4Full') then //通过判断注册表看是否安装.NET4.0 begin Result:=..

unit jmmh;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TO..

delphi按钮被点击后变灰色不能再被点击,比如点安装后为防止多次点击安装按钮需要暂时把按钮状态转变为不能使用状态，就需要用到下面的代码！Button1.Enabled = false;..

inno setup打包程序后RUN执行后不提示重启电脑代码，通过参看官方文档可知，如果想inno setup打包的程序安装完后不提示用户选择重启还是不重启电脑，只需要在[setup]中设置如下代码即可：RestartIfNeededByRun=no..

觉得IDE字体小看着费力的朋友位可以一试。把以下内容复制到文本文件中并另存为 xxx.reg注册表文件，双击后，字体就变为10号。字体也可以根据需求修改为其它大小，方法为在注册表编辑器中找到 HKEY_CURRENT_USERSoftwareEmbarcaderoBDS20.0Them把 FontSize修改为十进制的大小即可[HKEY_CURRENT_USERSoftwareEmbarcaderoBDS20..

用inno setup制作安装包会发现一个问题。默认安装时候的进度条只是文件提取的进度。当文件提取完成了进度条就已经100%这时候如果你[Run]里面运行的东西比较多，就会显得安装进度100%之后一直卡在那里，卡了半天才弹出安装完成界面。那如何解决这个问题呢？经过一番搜索，发现这个并没有什么好的控制方法，只有一些Workaroun..