QJH

先人的DELPHI基础开发技巧◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：va

名称                        类型         说明----------------------------------------------------------------------------------Abort                       函数         引起放弃的意外处理 Abs                         函数

⑴让登录窗体在主窗体运行前打开，⑵根据登录窗体返回值判断主窗体是否应该运行。详细代码如下：//project.dpr文件program project;... ...... ...begin Application.Initialize;    EntryFrm:=TEntryFrm.Create(application); //登录窗口   if EntryFrm.ShowModal=mrOK

uses IniFiles;DataBackConfig: TIniFile;strIniFile := ExtractFileDir(Application.ExeName) + /Config.ini;DataBackConfig := TIniFile.Create( strIniFile );strLastTime := Trim(DataBackConfig.ReadString(

function BmpToJpeg(mBitmap: TBitmap; mJPEGImage: TJPEGImage;  mCompressionQuality: Integer = 75): Boolean;begin  Result := True;  try    mJPEGImage.Assign(mBitmap);    mJPEGImage.CompressionQuality :=