- 博客(24)
- 资源 (8)
- 收藏
- 关注
转载 Delphi下载指定网址(URL)的文件,带进度条显示
主要使用的是Delphi自带的TIdhttp控件。一、界面设置在窗体上放置两个TEdit控件,一个用于输入要下载的文件URL,一个用于输入要保存到本地的文件路径;放置两个TLabel控件,一个显示文件总大小,一个显示当前已下载大小;放置一个按钮TButton,一个TIdhttp控件(在Indy Clients面板)和一个TIdAntiFreeze控件(放置该控件可避免下载过程中程序无响应,...
2020-05-01 01:50:49 724
转载 delphi如何隐藏webBrowser的滚动条,如何屏蔽右键
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin //水平垂直均可隐藏 WebBrowser1.oleobject.Document.body.Scroll := 'no'; WebBrowser1.ol...
2020-04-30 18:02:53 297
原创 将窗体的 BorderStyle 设置为 bsNone,窗体的标题栏就不会显示,此时,如果想移动窗体,方法如下:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);end;—————————...
2020-04-30 18:02:14 529
转载 Delphi 无边框图片窗体 任务栏实现最小化切换
formcreate中写上SetWindowLong(handle,GWL_STYLE,WS_MINIMIZEBOX);//最小化procedureTForm1.WMSYSCOMMAND(varMsg:TWMSYSCOMMAND);begin//当最小化时,只显示在任务栏caseMsg.CmdTypeofSC_CLOSE:SHOWWINDO...
2020-04-30 17:12:35 373
转载 MESSAGEBOX
MessageBox对话框 输入控件的 ImeName属性把输入法去掉就默认为英文输入了 MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容、信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBo
2018-01-19 18:55:45 213
原创 FireDAC连接MYSQL
ConStr_Mysql := 'DriverID=MySQL;Database=' + edt_MysqlDB.Text; ConStr_Mysql := ConStr_Mysql + ';Password=' + edt_MysqlPasswd.Text; ConStr_Mysql := ConStr_Mysql + ';Server=' + edt_MysqlIP.Text;
2016-03-26 23:02:04 3144
转载 delphi webbrowser 获取验证码
useclipbrd , mshtmlprocedure TForm1.DomImg2Image(src:string;wb:TWebBrowser;img:TImage);var i:Integer; rang:IHTMLControlRange;begin for i:=0 to IHTMLDocument2(wb.Document).images
2015-08-14 18:13:31 851
转载 delphi之模拟点击网页中的按钮
有三种方法来提交1、假如知道按钮名称上面代码中有 这样的代码name=”btnLogin” ,表明此按钮名称为 btnlogin程序代码就可以 这样来模拟wb1.OleObject.document.all.item(‘btnLogin’).click;2、假如知道按钮id上面代码中有 这样的代码 id=”btnLogin” ,表明此按钮id为 btnlogin程序代码
2015-08-10 00:20:40 976
转载 在TXT文件中查找指定字符串并显示指定字符串所在行的内容
var F: TextFile; S: string;begin if OpenDialog1.Execute then //如果选择文件名成功 begin AssignFile(F, OpenDialog1.FileName); Reset(F); While not Eof(F) do //文件未到末尾
2015-07-18 14:45:33 7170
转载 Delphi 遍历所有目录和子目录下的文件名(可按后缀名遍历)
procedureEnumFileInQueue(path: PChar; fileExt:string; fileList: TStringList); var searchRec: TSearchRec; found:Integer; tmpStr:string; curDir:string;
2015-07-18 13:58:26 3218
转载 修改系统环境变量
use Registry;function SetGlobalEnvironment(const Name,Value:string;const User:Boolean = True): Boolean; resourcestring REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session
2015-04-07 03:10:01 572
原创 CreateProcess 调用EXE 不成功 (如果该EXE直接双击能够运行) 使用以下方法
procedure TForm1.Button_StartApacheClick(Sender: TObject);var ApacheStartupInfo:TStartupInfo; ApacheProcessInfo:TProcessInformation; a, b :string;begin a := edit_ApachePath.Text +
2015-04-05 06:23:43 3514
原创 守护进程的一个笨写法
function TForm1.Checklogin() : Boolean;var FSnapshotHandle:THandle; //进程快照句柄 FProcessEntry32:TProcessEntry32; //进程入口的结构体信息 ContinueLoop, a:BOOL;begin FSnapshotHandle := CreateToolhelp3
2015-04-05 06:15:47 364
转载 CreateProcess 启动带参数的EXE 并获得PID
var MysqlStartupInfo:TStartupInfo; MysqlProcessInfo:TProcessInformation; MysqlPid: Integer; procedure TForm1.Button_StartMysqlClick(Sender: TObject); FillChar(MysqlProcessInfo,
2015-04-04 21:22:07 2886
转载 ShellExecute使用详解
有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。1.CreateProcess因为使用复杂,比较少用。2.WinExec主要运行EXE文件。如:WinExec('Notepad.exe Readme.txt', SW_SHOW);3.ShellExecute不仅可以运行EXE文件,也可以运行已经关联的文件。首先必须引用shel
2015-04-04 19:31:47 535
转载 加入超链接
//在uses中加入ShellAPI//通过该lpFile参数可以实现链接到主页或ftp站点 ShellExecute(handle,nil,pchar('http://www.cumt.edu.cn'),nil,nil,sw_ShowNormal); 使超链接字体的颜色改变加入代码:procedure TForm1.Label1MouseMove(Sender: TObj
2015-04-04 16:59:40 362
转载 调用EXE 判断是否成功运行
function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID: PDWORD): Longword;var StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation;begin FillChar(StartupInf
2015-04-04 16:38:19 583
转载 Opendialog 定位到文件和文件夹
在Delphi中,定位文件的操作主要有两种方法。一种是直接定位文件,即通过“打开”对话框(OpenDialog)控件来实现。另一种是只定位到文件夹,然后再在此文件夹内寻找文件,这种定位方法是利用Delphi提供的SelectDirectory函数。这个函数是在FileCtrl单元中定义的,因此在使用时不要忘记在Uses中加入单元名。 下面就以一个例子来说明这两种方法在Delphi中的
2015-04-04 07:22:59 4066
转载 获取程序当前路径
在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别: ExtractFilePath 传回值的最後一个字元是反斜杠“/”。ShowMessage(ExtractFileDir(Application.Exename)); // 返回值为 c:/tempShowMessage(ExtractF
2015-04-04 06:26:44 350
转载 使用系统默认的程序打开文件
ShellExecute(Self.handle,'open','c:\a.doc','','',SW_SHOWNORMAL);
2015-04-04 06:21:13 357
原创 窗体程序开发随笔收录
菜单栏的设计添加菜单(1)打开MainMenu菜单设计器,其最左上角自动生成一个方框,选中该方框,在Properties选项卡中将Caption属性设置为该菜单的名称,如“文件”,然后单击空白处,即可创建菜单栏中的一个菜单项。(2)再次单击“文件”菜单项,其右边和下边自动出现两个方框,文件菜单项右边的方框表示与“文件”菜单项平级的菜单,也是主菜单。“文件”菜单项下边的右框表示下拉菜
2015-04-04 03:50:55 314
CRM在通用.doc
2012-02-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人