onlyou13 - 博客园

公告

2019年11月8日

摘要： unit uExcelUnit; interface uses Winapi.Windows, System.SysUtils, System.Variants, System.Classes, System.Win.ComObj; function OpenExcel(filename: string): Variant; function ReadCell(excel: Variant; sh 阅读全文

posted @ 2019-11-08 22:43 onlyou13 阅读(354) 评论(0) 推荐(0)

2019年11月6日

调用dos

摘要：两个方法调用方式：阅读全文

posted @ 2019-11-06 16:28 onlyou13 阅读(150) 评论(0) 推荐(0)

2019年11月5日

delphi10.2 命令行编译x64脚本

摘要： Build.bat @echo off @echo delphi x64编译测试 @cd /d %~dp0 @echo 设置Delphi参数信息 @set SourcePath=%~dp0.\src @set BinPath=%~dp0Bin @echo 编译delphi x64 if exist 阅读全文

posted @ 2019-11-05 12:18 onlyou13 阅读(848) 评论(0) 推荐(0)

2019年10月30日

修正png

摘要：这是修正+取MD5的方法这是批量修正PNG的代码，pas + dfm uFixpng.dfm 阅读全文

posted @ 2019-10-30 14:41 onlyou13 阅读(152) 评论(0) 推荐(0)

2019年10月29日

Delphi MD5

摘要： unit uMD5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics; type MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of DWORD; MD5CBits = 阅读全文

posted @ 2019-10-29 23:23 onlyou13 阅读(143) 评论(0) 推荐(0)

2019年10月19日

2019-10-19 打开远程桌面

摘要： procedure CloseSleepAndDisplayOn; begin ShellExecute(0, 'open', 'cmd.exe', '/c powercfg /x /monitor-timeout-ac 0', nil, SW_HIDE); ShellExecute(0, 'open', 'cmd.exe', '/c powercfg /x /monitor-timeo... 阅读全文

posted @ 2019-10-19 18:51 onlyou13 阅读(210) 评论(0) 推荐(0)

2019年9月27日

delphi dll编写与调用

摘要： dll代码： mydll.dpr delphi调用：阅读全文

posted @ 2019-09-27 11:10 onlyou13 阅读(269) 评论(0) 推荐(0)

2019年9月3日

网络位置

摘要： uSafePublic.pas 调用函数：阅读全文

posted @ 2019-09-03 22:04 onlyou13 阅读(325) 评论(0) 推荐(0)

2019年9月2日

bmp

摘要： function GetNumberBuffer(cZi: string; cwidth, cheight: Integer; FontName: string; bold, italic: Boolean): TDataBytes; var col, row: Integer; cw, ch, cleft, ctop: Integer; style: TFontStyle; begin with 阅读全文

posted @ 2019-09-02 15:33 onlyou13 阅读(196) 评论(0) 推荐(0)

2019年8月28日

设置进程用指定IE版本

摘要：调用方式： SetProgramIEVersion（'a.exe', 11）; 如果是设置自身程序： SetProgramIEVersion（'', 11); 阅读全文

posted @ 2019-08-28 22:09 onlyou13 阅读(270) 评论(0) 推荐(0)