文章分类 - Delphi API
Delphi 函数
摘要：{$R*.dfm} varh:HWND; pt,p1:TPoint; arr,arr1:array[0..254]ofChar; h1:HCURSOR; procedureTForm1.Image1MouseDown(Sender:TObject;Button:TMouseButton; Shift:TShiftState;X,Y:Integer); begin Timer1.Enabled:=True; Image1.Picture.LoadFromFile('02.bmp'); //h1:=LoadCursorFromFile('031.ico');//03
阅读全文
摘要：在程序中使用了IdHTTP的话，在执行Get或Post过程的时候，程序界面会无法响应，造成程序假死，但在任务管理器中又能看到程序正在运行。这是因为Indy系统组件都使用了阻塞式Sock，阻塞式Sock的缺点就是使客户程序的用户界面“冻结”。当在程序的主线程中进行阻塞式Socket调用时，由于要等待Socket调用完成并返回，这段时间就不能处理用户界面消息，使得Update、Repaint以及其它消息得不到及时响应，从而导致用户界面被“冻结”，就是常说的“程序假死”。解决办法有两种：1.在程序中放一个IdAntiFreeze控件，个人使用中发现把IdAntiFreeze控件的OnlyWhenId
阅读全文
摘要：在窗體先放二個richedit（按收信息框、發送信息框），然后再放一個memo(聊天記錄)屬性Visible設為false，Form的AutoSize設為true procedure TForm1.Button1Click(Sender: TObject);// 聊天記錄按紐 begin memo1.Visible:=not memo1.Visible; end; 嘿，不知道這樣的效果能不能滿足樓主的需求~~转自：http://topic.csdn.net/t/20041011/10/3442962.html
阅读全文
摘要：问：我在edit里面添加的数据 想在listview里面显示出来 但是有一个问题就是我添加之后不能马上显示出来还要 我点击一下listview的滚动条才能在里面显示出来 我想问一下有没有好的方法在程序里面写一句话 来代替滚动条显示下一行答1：procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add(Edit1.Text); ListBox1.ItemIndex := Listbox1.Items.Count - 1; end;答2：procedure TForm1.Button1Cl...
阅读全文
摘要：//取特殊文件夹目录 //---------------------------------------------------------------- function GetSpecialFolderDir(const folderid: integer): string; var pidl : pItemIDList; buffer : array[0..255] of char; begin SHGetSpecialFolderLocation(Application.Handle, folderid,...
阅读全文
摘要：--------找到源码了unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ComObj,SHDocVw,SHDocVw_TLB;const CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';type TForm3 = class(TForm) Button1: TButton; procedure But
阅读全文
摘要：const CLSID_ShellUIHelper:TGUID='{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}'; var p:procedure(Handle:THandle;Path:PChar);stdcall; procedureTForm1.OrganizeFavorite(Sender:Tobject); var H:HWnd; begin H:=LoadLibrary(PChar('shdocvw.dll')); ifH<>0then begin p:=GetProcAd...
阅读全文
摘要：Delphi中WebBbrowser的编程 http://www.360doc.com/content/07/0402/15/8687_426504.shtmlWebbrowser.ExecWeb(OLECMDID_FIND,OLECMDEXECOPT_DODEFAULT);//查找Webbrowser.ExecWeb(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT);//保存 Webbrowser.ExecWeb(OLECMDID_ PROPERTIES, OLECMDEXECOPT_DODEFAULT);//查看属性Webbrowser.OleObj...
阅读全文
摘要：循环每一行，拿循环的当前行和全部行比较一下if Memo1.Lines[i].IndexOf(Memo1.Lines[j])<>-1 then //有重复转自：http://zhidao.baidu.com/question/201975349.html
阅读全文
摘要：http://blog.csdn.net/asciil/article/details/4355961//这里有关多线程的详细内容，很好！
阅读全文
摘要：找出一定的规律，把多余的字符替换掉就行了。参考： R := TRegExpr.Create; try R.ModifierI := True; //这一行是大小写不敏感的属性设置。参考：http://bbs.cnpack.org/viewthread.php?tid=3144 R.Expression := '<style>.*?</style>'; Memo1.text := R.Replace(Memo1.Text, '', False); R.Expression := '<script>.*?</scri
阅读全文
摘要：正则表达式是个极其繁琐和强大的东西，小生才疏学浅，也不准备写正则表达式的教程，借着对这个单元的介绍，会有一些浅显且有用的例子。首先介绍的是这个单元的主角：TRegExpr类，这个类包括很多成员，这里仅简单的介绍一下一般匹配的过程。下面是一段在文本中提取邮件地址的代码：Procedure GetName(TextToCheck:String;aList:TStringList);Var myExpr: TRegExpr;begin myExpr := TRegExpr.Create; Try myExpr.Expression := 'name="(.*?)"'
阅读全文
摘要：function StripHTML(S: string): string; var TagBegin, TagEnd, TagLength: integer; begin TagBegin := Pos( '<', S); // 查找第一个< while (TagBegin > 0) do begin// 若S串中含有< TagEnd := Pos('>', S); // 查找匹配的 > TagLength := TagEnd - TagBegin + 1; Delete(S, TagBegin, TagLength); /
阅读全文
摘要：interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click
阅读全文
摘要：var WebBrowser1: TWebBrowser; WebBrowser1 := TWebBrowser.Create(nil); WebBrowser1.ParentWindow := Panel_Main.Handle; WebBrowser1.Silent := True; WebBrowser1.Align := alClient; WebBrowser1.Width := Panel_Main.Width; WebBrowser1.Height := Panel_Main.Height; WebBrowser1.Visible := True; WebBrowser1.Na.
阅读全文
摘要：在Form放置一个ApplicationEvents控件， 在OnMessage事件中写下面的代码：uses ActiveXprocedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);const StdKeys = [VK_TAB, VK_RETURN, VK_DELETE, VK_BACK]; { standard keys } ExtKeys = [VK_LEFT, VK_RIGHT]; { extended keys } fExtended = $01000000; { extend.
阅读全文
摘要：如下代码即可解决uses Activex;initializationoleinitialize(nil);finalizationoleuninitialize;
阅读全文
摘要：在Delphi 7下没有VC下方便的RES资源编辑器，有一个Image Editor，但是功能有限，且支持的格式少。除了可以借用VC的资源编辑器和其他工具，我们还可以手动制作资源文件。 每一个Delphi工程下，都有一个.res资源文件，这是保存应用程序图标等资源的文件。在工程项目文件里都有包含一个编译指令，可以在“Project”→“View Source”下查看。如下所示：01020304050607080910111213programProject1;usesForms,Unit1in'Unit1.pas'{Form1};{$R*.res}{代表程序编译后，会产生一个与
阅读全文
摘要：制作资源文件并释放运行TEST EXEFILE TEST.exe 把这段文字复制到个记事本里保存为TEST.rcTEST为在程序里调用资源文件的名字 就是给资源文件起个名字在程序里调用EXEFILE 为文件类型 意思是exe文件TEST.EXE 为你要做成资源的exe文件在写个批处理文件(BuildRes.bat)内容为 Brcc32 TEST.rc第一行是你delphi的安装目录下的bin目录下的Brcc32.exe的位置 因为要用brcc32.exe编译第二行的TEST.rc为 你刚才写的rc文件的文件名把以上两个文件和你要做成资源文件的exe放在一个目录下 执行批处理 这时候会多出 TE
阅读全文
摘要：//获得文件列表function GetAllTextFile(Path,fext: string): TStringList;var f: TSearchRec; r: Integer;begin Result:=TStringList.Create; if Path[Length(Path)]<>'\' then Path:=Path+'\'; r:=FindFirst(Path+fext, faAnyFile, f); while r=0 do begin Result.Append(f.Name); r:=FindNext(f) end; F
阅读全文