function GetExePath: string; begin Result := ExtractFilePath(ParamStr()); end; function GetTempFileName: string; var vPath: string; begin SetLength(Result, ); GetTempFileName(PChar(GetExePath), PChar(, PChar(result)); vPath := GetExePath + 'temp\'; i…
var aHandle : THandle; aFileSize : Integer; aFileName : String; procedure TForm1.Button3Click(Sender: TObject); begin aFileName := 'C:\101\Java_new.pdf'; aHandle := CreateFile(PChar(aFileName),GENERIC_READ, , ); // get the handle of the file aFileSiz…
/* MSDN: Any application that adds or removes fonts from the system font table should notify other windows of the change by sending a WM_FONTCHANGE message to all top-level windows in the operating system. The application should send this message by …
Linux文件名称的长度限制是255个字符 windows下全然限定文件名称必须少于260个字符,文件夹名必须小于248个字符. linux下文件数.文件夹数.文件名称长度的各种限制 下面測试都是在没有优化或改动内核的前提下測试的结果 1. 測试目的:ext3文件系统下filename最大字符长度 測试平台:RHEL5U3_x64 測试过程:LENTH=`for i in {1..255};do for x in a;do echo -n $x;done;done`touch $LENTH当…
每30秒连接一次服务器,连接成功单元格变绿色,连接失败变红色,状态单元格为17行,2列 1,打开excel文件,进入vba编辑器,新建一个modules模块,在里面先写一个每30秒执行一次ConnServer宏 Sub StartTimer() Application.OnTime Now + TimeValue("00:00:30"), "StartTimer" ConnServer End Sub 2,再编写一个访问服务器代码的宏 Client.BaseUrl…