<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[killer0717的专栏]]></title><description><![CDATA[]]></description><link>https://blog.csdn.net/killer0717</link><language>zh-cn</language><generator>https://blog.csdn.net/</generator><copyright><![CDATA[Copyright &copy; killer0717]]></copyright><item><title><![CDATA[Delphi下载指定网址（URL）的文件，带进度条显示]]></title><link>https://blog.csdn.net/killer0717/article/details/105873271</link><guid>https://blog.csdn.net/killer0717/article/details/105873271</guid><author>killer0717</author><pubDate>Fri, 01 May 2020 01:50:49 +0800</pubDate><description><![CDATA[主要使用的是Delphi自带的TIdhttp控件。

一、界面设置

在窗体上放置两个TEdit控件，一个用于输入要下载的文件URL，一个用于输入要保存到本地的文件路径；放置两个TLabel控件，一个显示文件总大小，一个显示当前已下载大小；放置一个按钮TButton，一个TIdhttp控件（在Indy Clients面板）和一个TIdAntiFreeze控件（放置该控件可避免下载过程中程序无响应，...]]></description><category></category></item><item><title><![CDATA[delphi如何隐藏webBrowser的滚动条，如何屏蔽右键]]></title><link>https://blog.csdn.net/killer0717/article/details/105866976</link><guid>https://blog.csdn.net/killer0717/article/details/105866976</guid><author>killer0717</author><pubDate>Thu, 30 Apr 2020 18:02:53 +0800</pubDate><description><![CDATA[procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
begin //水平垂直均可隐藏
 WebBrowser1.oleobject.Document.body.Scroll := 'no';
 WebBrowser1.ol...]]></description><category></category></item><item><title><![CDATA[将窗体的 BorderStyle 设置为 bsNone，窗体的标题栏就不会显示，此时，如果想移动窗体，方法如下：]]></title><link>https://blog.csdn.net/killer0717/article/details/105866959</link><guid>https://blog.csdn.net/killer0717/article/details/105866959</guid><author>killer0717</author><pubDate>Thu, 30 Apr 2020 18:02:14 +0800</pubDate><description><![CDATA[procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;
—————————...]]></description><category></category></item><item><title><![CDATA[Delphi 无边框图片窗体 任务栏实现最小化切换]]></title><link>https://blog.csdn.net/killer0717/article/details/105865765</link><guid>https://blog.csdn.net/killer0717/article/details/105865765</guid><author>killer0717</author><pubDate>Thu, 30 Apr 2020 17:12:35 +0800</pubDate><description><![CDATA[formcreate中写上SetWindowLong(handle,GWL_STYLE,WS_MINIMIZEBOX);//最小化



procedureTForm1.WMSYSCOMMAND(varMsg:TWMSYSCOMMAND);
begin//当最小化时，只显示在任务栏
caseMsg.CmdTypeof
SC_CLOSE:
SHOWWINDO...]]></description><category></category></item><item><title><![CDATA[MESSAGEBOX]]></title><link>https://blog.csdn.net/killer0717/article/details/79109862</link><guid>https://blog.csdn.net/killer0717/article/details/79109862</guid><author>killer0717</author><pubDate>Fri, 19 Jan 2018 18:55:45 +0800</pubDate><description><![CDATA[MessageBox对话框 输入控件的   ImeName属性把输入法去掉就默认为英文输入了
　MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。
　1、函数原型及参数
　function MessageBo]]></description><category></category></item><item><title><![CDATA[FireDAC连接MYSQL]]></title><link>https://blog.csdn.net/killer0717/article/details/50989460</link><guid>https://blog.csdn.net/killer0717/article/details/50989460</guid><author>killer0717</author><pubDate>Sat, 26 Mar 2016 23:02:04 +0800</pubDate><description><![CDATA[ConStr_Mysql := 'DriverID=MySQL;Database=' + edt_MysqlDB.Text;
  ConStr_Mysql := ConStr_Mysql + ';Password=' + edt_MysqlPasswd.Text;
  ConStr_Mysql := ConStr_Mysql + ';Server=' + edt_MysqlIP.Text;]]></description><category></category></item><item><title><![CDATA[delphi webbrowser 获取验证码]]></title><link>https://blog.csdn.net/killer0717/article/details/47665715</link><guid>https://blog.csdn.net/killer0717/article/details/47665715</guid><author>killer0717</author><pubDate>Fri, 14 Aug 2015 18:13:31 +0800</pubDate><description><![CDATA[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]]></description><category></category></item><item><title><![CDATA[delphi之模拟点击网页中的按钮]]></title><link>https://blog.csdn.net/killer0717/article/details/47384655</link><guid>https://blog.csdn.net/killer0717/article/details/47384655</guid><author>killer0717</author><pubDate>Mon, 10 Aug 2015 00:20:40 +0800</pubDate><description><![CDATA[有三种方法来提交
1、假如知道按钮名称
上面代码中有 这样的代码name=”btnLogin” ，表明此按钮名称为 btnlogin
程序代码就可以 这样来模拟
wb1.OleObject.document.all.item(‘btnLogin’).click;
2、假如知道按钮id
上面代码中有 这样的代码 id=”btnLogin” ，表明此按钮id为 btnlogin
程序代码]]></description><category></category></item><item><title><![CDATA[delphi 防止For运行时候程序界面卡死]]></title><link>https://blog.csdn.net/killer0717/article/details/46948245</link><guid>https://blog.csdn.net/killer0717/article/details/46948245</guid><author>killer0717</author><pubDate>Sun, 19 Jul 2015 00:15:03 +0800</pubDate><description><![CDATA[Application.ProcessMessages;]]></description><category></category></item><item><title><![CDATA[在TXT文件中查找指定字符串并显示指定字符串所在行的内容]]></title><link>https://blog.csdn.net/killer0717/article/details/46942567</link><guid>https://blog.csdn.net/killer0717/article/details/46942567</guid><author>killer0717</author><pubDate>Sat, 18 Jul 2015 14:45:33 +0800</pubDate><description><![CDATA[var 
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then    //如果选择文件名成功
  begin
    AssignFile(F, OpenDialog1.FileName); 
    Reset(F);
    While not Eof(F) do          //文件未到末尾]]></description><category></category></item><item><title><![CDATA[Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）]]></title><link>https://blog.csdn.net/killer0717/article/details/46942179</link><guid>https://blog.csdn.net/killer0717/article/details/46942179</guid><author>killer0717</author><pubDate>Sat, 18 Jul 2015 13:58:26 +0800</pubDate><description><![CDATA[procedure
EnumFileInQueue(path: PChar; fileExt:
string; fileList: TStringList); 

var 
   searchRec: TSearchRec; 

   found:
Integer;  

   tmpStr:
string;  

   curDir:
string;]]></description><category></category></item><item><title><![CDATA[修改系统环境变量]]></title><link>https://blog.csdn.net/killer0717/article/details/44913531</link><guid>https://blog.csdn.net/killer0717/article/details/44913531</guid><author>killer0717</author><pubDate>Tue, 07 Apr 2015 03:10:01 +0800</pubDate><description><![CDATA[use Registry;


function  SetGlobalEnvironment(const Name,Value:string;
const User:Boolean = True): Boolean;
  resourcestring
   REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session]]></description><category></category></item><item><title><![CDATA[CreateProcess 调用EXE 不成功 (如果该EXE直接双击能够运行) 使用以下方法]]></title><link>https://blog.csdn.net/killer0717/article/details/44885285</link><guid>https://blog.csdn.net/killer0717/article/details/44885285</guid><author>killer0717</author><pubDate>Sun, 05 Apr 2015 06:23:43 +0800</pubDate><description><![CDATA[procedure TForm1.Button_StartApacheClick(Sender: TObject);
var
   ApacheStartupInfo:TStartupInfo;
   ApacheProcessInfo:TProcessInformation;

  a, b :string;
begin
  a := edit_ApachePath.Text + ]]></description><category></category></item><item><title><![CDATA[守护进程的一个笨写法]]></title><link>https://blog.csdn.net/killer0717/article/details/44885281</link><guid>https://blog.csdn.net/killer0717/article/details/44885281</guid><author>killer0717</author><pubDate>Sun, 05 Apr 2015 06:15:47 +0800</pubDate><description><![CDATA[function TForm1.Checklogin() : Boolean;
var
  FSnapshotHandle:THandle; //进程快照句柄
  FProcessEntry32:TProcessEntry32; //进程入口的结构体信息
  ContinueLoop, a:BOOL;
begin
  FSnapshotHandle := CreateToolhelp3]]></description><category></category></item><item><title><![CDATA[字符串替换]]></title><link>https://blog.csdn.net/killer0717/article/details/44881647</link><guid>https://blog.csdn.net/killer0717/article/details/44881647</guid><author>killer0717</author><pubDate>Sun, 05 Apr 2015 00:46:29 +0800</pubDate><description><![CDATA[StringReplace (aStr, 'a', 'two', [rfReplaceAll]));]]></description><category></category></item><item><title><![CDATA[CreateProcess 启动带参数的EXE 并获得PID]]></title><link>https://blog.csdn.net/killer0717/article/details/44876235</link><guid>https://blog.csdn.net/killer0717/article/details/44876235</guid><author>killer0717</author><pubDate>Sat, 04 Apr 2015 21:22:07 +0800</pubDate><description><![CDATA[var
   MysqlStartupInfo:TStartupInfo;
   MysqlProcessInfo:TProcessInformation;
   MysqlPid: Integer; 



procedure TForm1.Button_StartMysqlClick(Sender: TObject);

 FillChar(MysqlProcessInfo,]]></description><category></category></item><item><title><![CDATA[ShellExecute使用详解]]></title><link>https://blog.csdn.net/killer0717/article/details/44875203</link><guid>https://blog.csdn.net/killer0717/article/details/44875203</guid><author>killer0717</author><pubDate>Sat, 04 Apr 2015 19:31:47 +0800</pubDate><description><![CDATA[有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。
1.CreateProcess因为使用复杂，比较少用。
2.WinExec主要运行EXE文件。如：WinExec('Notepad.exe Readme.txt', SW_SHOW);
3.ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。
首先必须引用shel]]></description><category></category></item><item><title><![CDATA[加入超链接]]></title><link>https://blog.csdn.net/killer0717/article/details/44874059</link><guid>https://blog.csdn.net/killer0717/article/details/44874059</guid><author>killer0717</author><pubDate>Sat, 04 Apr 2015 16:59:40 +0800</pubDate><description><![CDATA[//在uses中加入ShellAPI
//通过该lpFile参数可以实现链接到主页或ftp站点
 
ShellExecute(handle,nil,pchar('http://www.cumt.edu.cn'),nil,nil,sw_ShowNormal);
 
使超链接字体的颜色改变加入代码：
procedure TForm1.Label1MouseMove(Sender: TObj]]></description><category></category></item><item><title><![CDATA[调用EXE 判断是否成功运行]]></title><link>https://blog.csdn.net/killer0717/article/details/44873891</link><guid>https://blog.csdn.net/killer0717/article/details/44873891</guid><author>killer0717</author><pubDate>Sat, 04 Apr 2015 16:38:19 +0800</pubDate><description><![CDATA[function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID:
  PDWORD): Longword;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInf]]></description><category></category></item><item><title><![CDATA[Opendialog 定位到文件和文件夹]]></title><link>https://blog.csdn.net/killer0717/article/details/44870615</link><guid>https://blog.csdn.net/killer0717/article/details/44870615</guid><author>killer0717</author><pubDate>Sat, 04 Apr 2015 07:22:59 +0800</pubDate><description><![CDATA[在Delphi中，定位文件的操作主要有两种方法。一种是直接定位文件，即通过“打开”对话框（OpenDialog）控件来实现。另一种是只定位到文件夹，然后再在此文件夹内寻找文件，这种定位方法是利用Delphi提供的SelectDirectory函数。这个函数是在FileCtrl单元中定义的，因此在使用时不要忘记在Uses中加入单元名。


　　下面就以一个例子来说明这两种方法在Delphi中的]]></description><category></category></item></channel></rss>