warrially的专栏

lazarus-2.0.10-fpc-3.2.0-win64.exe链接：https://pan.baidu.com/s/1RrAJOxtCw74RFS4270JurA提取码：jcrf

安装服务Service.exe /install ServiceCreate ServiceBeforeInstall ServiceAfterInstall ServiceDestroy 卸载服务Service.exe /uninstall ServiceCreate ServiceBeforeUninstall ServiceAfterUninstall ServiceDestroy 启动服务 S...

const ValidChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ234567';// Base32解码function Base32Decode(const source: string): string;var UpperSource: string; p, i, l, n, j: Integer;begin UpperSource :=...

program Project1;uses Winapi.Windows, System.IOUtils;{$R *.res}procedure myCreateProcess();var StartupInfo: Winapi.Windows.TStartupInfo; ProcessInfo: Winapi.Windows.TProcessInformation;...

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent, ...

1. 在 工程文件里不要创建 loginFORM Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TMainForm, MainForm); Application.Run;2 在主窗体的FormCreateprocedure TMa...

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Threading, Vcl.StdCtrls;...

这段代码本身是没有问题的，但是发现如果更改了系统日期分隔符(例如将系统日期分隔符更改为2016/4/11，“-”变为"/")，StrToDate就会报错，提示：'2016-4-11'不是有效日期类型，通过这个可以说明StrToDate函数是转换的依据就是系统当前日期分隔符，所以我们要像上面代码将字符串转换为日期类型，必须先同步当前系统日期分隔符，以让程序适应系统。//声明一个返回当前日期分隔符的函...

function TVerySimpleLua.Print(L: Lua_State): Integer;var N, I: Integer; S: MarshaledAString; Sz: size_t; Msg: String;begin Msg := ''; N := lua_gettop(L); //* number of arguments */

uses ioutils, Typesprocedure TForm2.FormCreate(Sender: TObject);var dfs : TStringDynArray; strDirectory : string;begin dfs := TDirectory.GetDirectories('C:\abcde', '*'); for strDirecto

工作原因没怎么更新.   不想有其他朋友找到我的联系方式,  想

11