-
Delphi实现禁止app截屏
2023-5-25 Delphi修改AndroidManifest.template.xml,增加下面标粗的内容: <activity android:name="com.embarca... -
Delphi查看程序版本信息
2022-7-24//要在uses中添加引用单元:Version; procedure TForm1.FormSet; var pVer : tVersion; begin pVer := Tversion.Create(ParamStr(0)); x_... -
Delphi重建托盘图标
2022-7-24 Delphiunit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1... -
Self-Delete程序之Delphi版本
2022-7-24 Delphiprocedure DeleteSelf; var module : HMODULE; buf : array [ 0 .. MAX_PATH – 1 ] of char; p : ULONG; hKrnl3... -
将webbrowser的cookie给idhttp用
2017-10-17 Delphi网上搜索出来的方法是:Cookie:='Cookie:' +(Web.document as IHtmlDocument2).cookie; 但听说这个方法不能获取全部的Cookie内容,需要借助wininet.dll才可以获取完整... -
获取电脑系统空闲时间
2017-10-17 Delphifunction GetLastInput: integer; //获取闲置时间 var LInput: TLastInputInfo; begin Result := 0; &nb... -
[转]快速获取文件大小
2017-10-13 Delphifunction GetFileSize(const fName: AnsiString): Int64; var hFile: THandle; begin hFile := _lopen(PAnsiChar(fName), OF_READ)... -
Sublime Text 3 Build 3142 32/64通用注册码
2017-9-3 Tools注册码仅仅是为了方便大家试用软件,多春鱼并不鼓励长期使用,这个软件是程序员的利器,功能可以无限扩展,如果条件允许就注册一个吧,作者也不容易。网上有不少人在汉化,其实根本没必要,软件本来就有中文插件下载,当然破解就更没必要了,目前我查到的破解都是会反复显示未注册的。 ... -
【转】不管什么DateTime日期格式时间格式转换都不会出错了!
2017-7-6 Delphi在Application.Initialize后面加入对FormatSettings的设置: Application.Initialize; with FormatSettings do begin ShortDateFormat := 'yyyy...