复制代码uses FileCtrl; procedure TForm1.BitBtn1Click(Sender: TObject);begin with OpenDialog1 do if Execute then if FileSetAttr(filename, faArchive)=0 then Caption:='attribute was changed' else Caption:='attribute was not changed';end;复制代码 请在interface下的us…

>_< 为了获取文件属性,用户可以使用GetFileAttributes与GetFileAttributesEx函数. GetFileAttributesEx函数除了返回文件属性外,还返回文件时间信息.文件大小等.GetFileAttributesEx将返回结果保存在WIN32_FILE_ATTRIBUTE DATA结构中.>_< 获取的文件时间是以FILETIME格式存在的,如果要正确显示,还需要对其时区进行调整,调整为本地时区,然后转换为系统时间格式,便于显示.>_<…

原文 NSIS:设置文件属性的方法 在NSIS中,有以下方法可以对文件的属性进行设置.   一是通过NSIS的指令SetFileAttributes.   多重属性可用 ' | ' 隔开,有效的属性为: NORMAL 或 FILE_ATTRIBUTE_NORMAL (你可以把该项缩写为 0 ) ARCHIVE 或 FILE_ATTRIBUTE_ARCHIVE HIDDEN 或 FILE_ATTRIBUTE_HIDDEN OFFLINE 或 FILE_ATTRIBUTE_OFFLINE READO…

install命令 install命令的作用是安装或升级软件或备份数据,它的使用权限是所有用户.install命令和cp命令类似,都可以将文件/目录拷贝到指定的地点.但是,install允许你控制目标文件的属性.install通常用于程序的makefile,使用它来将程序拷贝到目标(安装)目录. 执行man install,了解install命令是用于复制文件和设置文件属性 语法install [OPTION]... [-T] SOURCE DESTinstall [OPTION]... SOU…

delphi枚举类型长度默认为2个字节(单字),而在C中枚举为4个字节(双字),如果需要跨这两个平台编程,传输结构时会由于数据长度不一造成灾难. 经过查找资料,原来delphi可以通过{$Z+} {$Z-} {$Z1} {$Z4} 等宏设置枚举类型的长度,小至1个字节,大至4个字节. 官方说明如下: http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/comp…

uses UrlMon, WinInet; {------------------------------------------------------------------------------- 过程名: SetProcessProxy 作者: kelei 日期: 2013.08.03 参数: aProxyServer代理服务器; aProxyPort代理服务器端口 返回值: True设置成功 SetProcessProxy('127.0.0.1', 80); ------------…

//设置表格样式 wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLineStyle.wdLineStyleSingle; wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineWidth = Word.WdLineWidth.wdLineWidth050pt; wordDoc.Ta…

 的属性 的事件 的方法 //1设置链接类型//2获取样式 链接和提示信息 //title是提示信息//HTTPS https://<a href="https://www.baidu.com" title="提示信息">Hello</a>//FILE file://<a href="file://C:/1.avi" title="提示信息">Hello</a>//FTP ftp…

1.锁定窗体上的控件,禁止移动位置 D7-Edit>Lock Controls 2.设置控件永久显示名字 D7-Tools>Environment Options>Designer>show component captions D2007-Tools>Options>VCL Designer>show component captions 3.编译时显示进度 D7-功具-环境选项-参数设置-编译与运行-“显示编译器进程(C)” 4.编译时打开“代码优化” del…

摘要: 1.文件后缀名不可见,系统运维过程容易发生同名不同后缀的文件操作混淆的情况 2.windows系统默认是文件后缀名不可见 3.所以需要更改一下配置. 4.操作步骤如下图: (1)点击组织-文件夹和搜索选项 (2)点击“查看”标签并取消勾选“隐藏已知文件类型的扩展名”   原文链接: http://www.lookdaima.com/WebForms/WebPages/Blanks/Pm/Docs/DocItemDetail.aspx?EmPreviewTypeV=2&id=6b648c6…

= 'Repeat %s(&' + #32 + ')';  //设置快捷键  这个是设置空格的  如果设置字符,  就可以这样写= 'Repeat %s(&H)‘ const SRepeatCmdCaption_TME = 'Repeat %s(&' + #32 + ')'; //设置快捷键 SRepeatHint_TME = 'Repeat %s';var sLastHint, sLastCaption: string;begin if not CheckCanExecute t…

//设置表格样式wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLineStyle.wdLineStyleSingle;wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineWidth = Word.WdLineWidth.wdLineWidth050pt;wordDoc.Table…

// 设置WINDOWS系统的短日期的格式SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd'); Application.UpdateFormatSettings := False;// 设定程序本身所使用的日期时间格式LongDateFormat := 'yyyy-MM-dd';ShortDateFormat := 'yyyy-MM-dd';LongTimeFormat := 'hh:nn:ss';Short…

有些程序要设置为开机启动,所以自己写了个函数方便以后使用,供大家参考 procedure TMainForm.SetAutoRun(ok: boolean); var   Reg:TRegistry;       //首先定义一个TRegistry类型的变量Regbegin   Reg:=TRegistry.Create;   try                           //创建一个新键     Reg.RootKey:=HKEY_LOCAL_MACHINE;     //将根键…

Windows VCL 程序: 1. 用文本编辑器打开Delphi项目的.dproj文件.2. 搜索关键字“<Icon_MainIcon>”,查找Icon_MainIcon元素.3. 将所有Icon_MainIcon元素的内容删除(删除<Icon_MainIcon>与</Icon_MainIcon>之间的内容).4. 保存文件. 验证结果: 重新打开Delphi项目,打开项目的选项窗口. 在项目选项窗口中左侧:选择应用程序-图标. 在项目选项窗口中右侧:应用程序图标显示…

如果同一窗体有多个按钮的话,追踪源码发现最后是taborder来的 如: 在空白窗体上拖入两个button (btn1,btn2) 如果在btn2设置default = True 运行后,默认焦点还是在btn1上.需要把btn2的taborder设置为0才可以. 如此看来还是以taborder 来认的. 1 procedure TCustomForm.SetActive(Value: Boolean); 2 begin 3 FActive := Value; 4 if FActiveOleCon…

//poScreenCenter时,窗体会显示到主显示器的中央 MainForm.Position := poScreenCenter; function TGAEAMainForm.GetWorkArea(var R : TRect) : Boolean;var I : Integer;begin Result := False; for I := 0 to Screen.MonitorCount -1 do if Screen.Monitors[I].Primary then begin R…

转载:http://c.biancheng.net/cpp/html/326.html man 2 stat查看手册 int stat(const char *path, struct stat *buf); int fstat(int fd, struct stat *buf); int lstat(const char *path, struct stat *buf); lstat与stat的区别:对于符号链接文件,lstat返回的是符号链接文件本身的状态信息,而stat返回的是符号链接指向…

uses  Windows; 在工程文件中添加一句代码,如下: Application.Initialize; //添加以下一句解决外文系统乱码问题 SetThreadLocale(DWORD(Word(SORT_DEFAULT) ) or DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) ) or DWORD(Word(LANG_CHINESE))); Application.CreateForm(TForm1, Form1); Application.Run; 感…

Read File Detailed Properties https://www.board4all.biz/threads/read-file-detailed-properties.655787/…