摘要： 一、修改apache目录 下载好WampServer后，它默认网站根目录是:“D:/wamp/www”(示例 若不同点击右下角的wampserver有个www目录即默认网站根目录) 打个比方，我现在要把网站根目录改为“E:/study” 1.打开 D:\wamp\bin\apache\apache2 阅读全文

摘要： function GetFileSize(const FileName : string): DWORD; var f : integer; begin f := FileOpen(FileName, fmOpenRead); try Result := Windows.GetFileSize(f, 阅读全文

摘要： Delphi 获得文件大小的方法 大概有这些： FileSizeByName（需要引用IdGlobal单元 ，XE版本已取消） GetFileSize （use Windows ，仅支持windows） FileSize（不能获得正在使用的文件大小） FileSeek TFileStream.Siz 阅读全文

摘要： use GIFImg procedure TForm1.Button1Click(Sender: TObject); var pic_path:string; begin pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif' 阅读全文

摘要： 将时间日期分解 procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; Sys 阅读全文

摘要： Use shellapi; public { Public declarations } procedure TFfile(var Msg:TMessage);message WM_DROPFILES; 单文件拖拽到某个控件上： public { Public declarations } proc 阅读全文

摘要： 1、 把PNG图片放到项目中； 2、 点击主菜单“Project”→“ Resources and Images”，弹出下面的对话框 它会自动识别项目中的图片、音频等文件自动添加进来，如果没有识别出来或者是自定义文件类型的话，就点击【Add】按钮手动添加，然后选择合适的资源类型ResourceTyp 阅读全文

摘要： uses DBGridEhImpExp; procedure TForm1.Button1Click(Sender: TObject); var Fn: string; begin //导出汇总结果为 xls, 需要 uses DBGridEhImpExp Fn := 'D:\Data\abc.xl 阅读全文

摘要： combobox1.items.clear; adotable1.open; adotable1.first; with not adotable1.eof do begin combobox1.items.addobject(Fieldbyname('name').asstring,TObject 阅读全文

摘要： 设置它的几个属性：BevelEdges |_ beLeft = False; |_ beTop = False; |_ beRight = False; |_ beBottom=True; //就是下面那根横线了BevelInner=bvNone;BevelKind =bkSoft;BevelOut 阅读全文