- 博客(24)
- 资源 (8)
- 收藏
- 关注
RSS订阅转载 Delphi下载指定网址（URL）的文件，带进度条显示
主要使用的是Delphi自带的TIdhttp控件。 一、界面设置 在窗体上放置两个TEdit控件，一个用于输入要下载的文件URL，一个用于输入要保存到本地的文件路径；放置两个TLabel控件，一个显示文件总大小，一个显示当前已下载大小；放置一个按钮TButton，一个TIdhttp控件（在Indy Clients面板）和一个TIdAntiFreeze控件（放置该控件可避免下载过程中程序无响应，...
2020-05-01 01:50:49
1043
转载 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
436
原创 将窗体的 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
662
转载 Delphi 无边框图片窗体 任务栏实现最小化切换
formcreate中写上SetWindowLong(handle,GWL_STYLE,WS_MINIMIZEBOX);//最小化 procedureTForm1.WMSYSCOMMAND(varMsg:TWMSYSCOMMAND); begin//当最小化时，只显示在任务栏 caseMsg.CmdTypeof SC_CLOSE: SHOWWINDO...
2020-04-30 17:12:35
559
转载 MESSAGEBOX
MessageBox对话框 输入控件的 ImeName属性把输入法去掉就默认为英文输入了 MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBo
2018-01-19 18:55:45
341
原创 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
3297
转载 delphi webbrowser 获取验证码
use clipbrd , mshtml procedure 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
953
转载 delphi之模拟点击网页中的按钮
有三种方法来提交 1、假如知道按钮名称 上面代码中有 这样的代码name=”btnLogin” ，表明此按钮名称为 btnlogin 程序代码就可以 这样来模拟 wb1.OleObject.document.all.item(‘btnLogin’).click; 2、假如知道按钮id 上面代码中有 这样的代码 id=”btnLogin” ，表明此按钮id为 btnlogin 程序代码
2015-08-10 00:20:40
1147
转载 在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
7381
转载 Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）
procedure EnumFileInQueue(path: PChar; fileExt: string; fileList: TStringList); var searchRec: TSearchRec; found: Integer; tmpStr: string; curDir: string;
2015-07-18 13:58:26
3398
转载 修改系统环境变量
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
682
原创 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
3756
原创 守护进程的一个笨写法
function TForm1.Checklogin() : Boolean; var FSnapshotHandle:THandle; //进程快照句柄 FProcessEntry32:TProcessEntry32; //进程入口的结构体信息 ContinueLoop, a:BOOL; begin FSnapshotHandle := CreateToolhelp3
2015-04-05 06:15:47
437
转载 CreateProcess 启动带参数的EXE 并获得PID
var MysqlStartupInfo:TStartupInfo; MysqlProcessInfo:TProcessInformation; MysqlPid: Integer; procedure TForm1.Button_StartMysqlClick(Sender: TObject); FillChar(MysqlProcessInfo,
2015-04-04 21:22:07
3109
转载 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
673
转载 加入超链接
//在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
461
转载 调用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
726
转载 Opendialog 定位到文件和文件夹
在Delphi中，定位文件的操作主要有两种方法。一种是直接定位文件，即通过“打开”对话框（OpenDialog）控件来实现。另一种是只定位到文件夹，然后再在此文件夹内寻找文件，这种定位方法是利用Delphi提供的SelectDirectory函数。这个函数是在FileCtrl单元中定义的，因此在使用时不要忘记在Uses中加入单元名。 下面就以一个例子来说明这两种方法在Delphi中的
2015-04-04 07:22:59
4434
转载 获取程序当前路径
在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别: ExtractFilePath 传回值的最後一个字元是反斜杠“/”。 ShowMessage(ExtractFileDir(Application.Exename)); // 返回值为 c:/temp ShowMessage(ExtractF
2015-04-04 06:26:44
429
转载 使用系统默认的程序打开文件
ShellExecute(Self.handle,'open','c:\a.doc','','',SW_SHOWNORMAL);
2015-04-04 06:21:13
472
原创 窗体程序开发随笔收录
菜单栏的设计 添加菜单 （1）打开MainMenu菜单设计器，其最左上角自动生成一个方框，选中该方框，在Properties选项卡中将Caption属性设置为该菜单的名称，如“文件”，然后单击空白处，即可创建菜单栏中的一个菜单项。 （2）再次单击“文件”菜单项，其右边和下边自动出现两个方框，文件菜单项右边的方框表示与“文件”菜单项平级的菜单，也是主菜单。“文件”菜单项下边的右框表示下拉菜
2015-04-04 03:50:55
378
CRM在通用.doc
2012-02-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人