killer0717的专栏

主要使用的是Delphi自带的TIdhttp控件。一、界面设置在窗体上放置两个TEdit控件，一个用于输入要下载的文件URL，一个用于输入要保存到本地的文件路径；放置两个TLabel控件，一个显示文件总大小，一个显示当前已下载大小；放置一个按钮TButton，一个TIdhttp控件（在Indy Clients面板）和一个TIdAntiFreeze控件（放置该控件可避免下载过程中程序无响应，...

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin //水平垂直均可隐藏 WebBrowser1.oleobject.Document.body.Scroll := 'no'; WebBrowser1.ol...

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);end;—————————...

formcreate中写上SetWindowLong(handle,GWL_STYLE,WS_MINIMIZEBOX);//最小化procedureTForm1.WMSYSCOMMAND(varMsg:TWMSYSCOMMAND);begin//当最小化时，只显示在任务栏caseMsg.CmdTypeofSC_CLOSE:SHOWWINDO...

Application.ProcessMessages;

var   F: TextFile;  S: string;begin  if OpenDialog1.Execute then    //如果选择文件名成功  begin    AssignFile(F, OpenDialog1.FileName);     Reset(F);    While not Eof(F) do          //文件未到末尾

useclipbrd , mshtmlprocedure TForm1.DomImg2Image(src:string;wb:TWebBrowser;img:TImage);var  i:Integer;  rang:IHTMLControlRange;begin  for i:=0 to IHTMLDocument2(wb.Document).images

ConStr_Mysql := 'DriverID=MySQL;Database=' + edt_MysqlDB.Text;  ConStr_Mysql := ConStr_Mysql + ';Password=' + edt_MysqlPasswd.Text;  ConStr_Mysql := ConStr_Mysql + ';Server=' + edt_MysqlIP.Text;

procedureEnumFileInQueue(path: PChar; fileExt:string; fileList: TStringList); var    searchRec: TSearchRec;    found:Integer;     tmpStr:string;     curDir:string;

MessageBox对话框 输入控件的   ImeName属性把输入法去掉就默认为英文输入了　MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。　1、函数原型及参数　function MessageBo

有三种方法来提交1、假如知道按钮名称上面代码中有 这样的代码name=”btnLogin” ，表明此按钮名称为 btnlogin程序代码就可以 这样来模拟wb1.OleObject.document.all.item(‘btnLogin’).click;2、假如知道按钮id上面代码中有 这样的代码 id=”btnLogin” ，表明此按钮id为 btnlogin程序代码

use Registry;function  SetGlobalEnvironment(const Name,Value:string;const User:Boolean = True): Boolean;  resourcestring   REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session

在Delphi中，定位文件的操作主要有两种方法。一种是直接定位文件，即通过“打开”对话框（OpenDialog）控件来实现。另一种是只定位到文件夹，然后再在此文件夹内寻找文件，这种定位方法是利用Delphi提供的SelectDirectory函数。这个函数是在FileCtrl单元中定义的，因此在使用时不要忘记在Uses中加入单元名。　　下面就以一个例子来说明这两种方法在Delphi中的

ShellExecute(Self.handle,'open','c:\a.doc','','',SW_SHOWNORMAL);

在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别: ExtractFilePath 传回值的最後一个字元是反斜杠“/”。ShowMessage(ExtractFileDir(Application.Exename)); // 返回值为 c:/tempShowMessage(ExtractF

有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。1.CreateProcess因为使用复杂，比较少用。2.WinExec主要运行EXE文件。如：WinExec('Notepad.exe Readme.txt', SW_SHOW);3.ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。首先必须引用shel

//在uses中加入ShellAPI//通过该lpFile参数可以实现链接到主页或ftp站点 ShellExecute(handle,nil,pchar('http://www.cumt.edu.cn'),nil,nil,sw_ShowNormal); 使超链接字体的颜色改变加入代码：procedure TForm1.Label1MouseMove(Sender: TObj

function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID:  PDWORD): Longword;var  StartupInfo: TStartupInfo;  ProcessInfo: TProcessInformation;begin  FillChar(StartupInf

StringReplace (aStr, 'a', 'two', [rfReplaceAll]));

var   MysqlStartupInfo:TStartupInfo;   MysqlProcessInfo:TProcessInformation;   MysqlPid: Integer; procedure TForm1.Button_StartMysqlClick(Sender: TObject); FillChar(MysqlProcessInfo,

function TForm1.Checklogin() : Boolean;var  FSnapshotHandle:THandle; //进程快照句柄  FProcessEntry32:TProcessEntry32; //进程入口的结构体信息  ContinueLoop, a:BOOL;begin  FSnapshotHandle := CreateToolhelp3

procedure TForm1.Button_StartApacheClick(Sender: TObject);var   ApacheStartupInfo:TStartupInfo;   ApacheProcessInfo:TProcessInformation;  a, b :string;begin  a := edit_ApachePath.Text +

if fileexists(路径 + 文件名 + 扩展名) then        begin        end