随笔分类 - Delphi
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;typeTMyThread = class(TThread) private { Private declarations } procedure AddTh; procedure DecTh; protected procedure Execute; override; end; TForm1 = class(TForm) Edit1: T
阅读全文
摘要：惨无人道的转载开始。Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。1.文件变量与文件名关联:AssignFile(VarTxt, FileName);FileName 如果省略路径将默认当前目录。2.初始化读写有三种方式:(1) Reset: 只读打开, 指针移到文件头;(2) Rewrite: 创建新文件
阅读全文
摘要：继续惨无人道的转载。var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'); {第一次出现的位置} List.Sort; {排序} List.Sorted := True; {指定排序
阅读全文
摘要：惨无人道的转载开始。/*var CS: TRTLCriticalSection; {声明一个 TRTLCriticalSection 结构类型变量; 它应该是全局的}InitializeCriticalSection(CS); {初始化}EnterCriticalSection(CS); {开始: 轮到我了其他线程走开}LeaveCriticalSection(CS); {结束: 其他线程可以来了}DeleteCriticalSection(CS); {删除: 注意不能过早删除}也可用 TryEnterCriticalSection 替代 EnterCriticalSection.*/unit
阅读全文
摘要：惨无人道的转载开始！现在, Delphi 的多线程已经非常易用了!先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;{调用上面的自定义方法}procedure TForm1.Button1Click(Sender: TOb
阅读全文
摘要：其函数原形是:function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;lpClassName:窗口类名.如果只知道标题,可以为空.窗口类名可以用很多工具获得.如winsignt32.lpWindowName:窗口标题.调用方式举例:var wndhwnd:HWND;wndhwnd:=FindWindow(nil,'某...
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);varhWindow: HWND; { 窗体句柄 }dwProcessID: DWORD; { 进程 ID }hProcess: THandle; { 进程句柄 }begin{ 根据标题获取窗体的句柄 }hWindow := FindWindow(nil, '标题');{ 通过窗体句柄获取进程 ID }G...
阅读全文
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Memo1: TMemo; WebBrowse...
阅读全文
摘要：感谢万一前辈，感谢土司论坛。CSDN 文件下载工具。 免登录，免扣分。里面所谓的ID ,是指下载页url后面的那串数字。
阅读全文