function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 功能：返回按指定方式格式化一个数组常量的字符形式 说明 这个函数是Delphi中用得最多的函数，现在就列举几个例子以得到直观的理解 "%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 它是以"%"开始,而以"类型"结束，"类型"表示一个具体的类型。中间是用来格 Read More
//自绘POPUPMENU，使其强制向上弹出 TrackPopupMenu(Pmu_ReportList.Items.Handle, TPM_BOTTOMALIGN, sPoint.X-cPoint.X,sPoint.Y-cPoint.Y, 0, PopupList.Window, nil); Read More
Q: 如何打开一个应用程序？ ShellExecute(this-> m_hWnd, "open ", "calc.exe ", " ", " ", SW_SHOW ); 或 ShellExecute(this-> m_hWnd, "open ", "notepad.exe ", "c:/MyLog.log ", " ",SW_SHOW ); Q: 如何打开一个同系统程序相关连的文档？ ShellExecute(this-& Read More
大概有这些方法可以获得文件大小 FileSizeByName（需要引用IdGlobal单元） GetFileSize FileSize（不能获得正在使用的文件大小） FileSeek TFileStream.Size 下面是使用例子 1。FileSizeByName（需要引用IdGlobal单元） begin if OpenDialog1.Execute then begin ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename))); end; 2。GetFileSize var FileHandle:integer; begin Read More