`
ylilike
  • 浏览: 147758 次
  • 性别: Icon_minigender_1
  • 来自: 洛阳
社区版块
存档分类
最新评论
文章列表
开始 运行 输入   reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer" /v "link" /d 00000000 /t REG_binary /f   确定 然后 开始运行 输入   cmd /c taskkill /f /im explorer.exe&&explorer.exe   确定
Delphi基本图像处理代码//浮雕procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var  i, j, Gray, Azimuthvalue, R, G, B: integer;  SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple;
//前面要加几个pas单元 uses Registry,ShellApi, WinInet,ShlObj,ComObj; procedure DelRegCache; var        reg:TRegistry; begin        reg:=Tregistry.create;        reg.RootKey:=HKEY_CURRENT_USER;        reg.DeleteKey(’Software\Microsoft\Internet Explorer\TypedURLs’);        reg.Free; end; function GetCookies ...
一、DateTime,Date,Time存储方式本质上也是以double来存储的。用整数部分表示日期,小数部分表示时间。可看我另外一篇“access 中“日期/时间”存储方式 ” TDateTimePicker有上面三种属性。 二、TDateTimePicker的kind属性设置为dtkDate用 ...
webbrowser二次点击webb可以实现二次点击但是二次点击的来路为空。这里先说明一下为什么是没有来路的。二次点击的代码本质是2个内置浏览器webbrowser,webb1点击的网页的时候把新打开的网页地址赋值给webb2去打开。就相当于webb是从新打开了一个新的地址,来路当然是空的。下面的代码附上解决的办法。代码比较长 我把关键的地方标注一下var  curUrl:string;///定义的地址变量implementation{$R *.dfm}procedure TForm1.EmbeddedWB1NewWindow3(ASender: TObject;  var ppDisp: ID ...
//机内码 -> 汉字Function MacCode2Chinese(AiUniCode : Integer) : String;Varch, cl : Integer;Begin  ch := AiUniCode Div 256;  cl := AiUniCode Mod 256;  Result := Chr(ch) + Chr(cl);end;//汉字 -> 机内码Function Chinese2MacCode(AiChinese : String) : Integer;Varch, cl : Integer;Begin  ch := Ord(AiChinese[1]);  ...
unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ComCtrls, StdCtrls;   type   TForm1 = class(TForm)     ListView1: TListView;     procedure FormCreate(Sender: TObject);   private     { Private declarations }     proce ...
unit ChineseCharactersConvert;interfaceuses  Classes, Windows;type  TGBBIG5Convert = class(TObject)  public    class function BIG5ToGB(BIG5Str : String): AnsiString;    class function GBToBIG5(GBStr : String): AnsiString;    class function GBChs2Cht(GBStr: String): AnsiString;    class function GBCht ...
var  clp: TClipboard;begin  clp := TClipboard.Create;  try  clp.AsText := '模拟键盘输入的值';  PostMessage(GetFocus,WM_PASTE,0,0);  finally  clp.Free;  end;     procedure TForm1.FormCreate(Sender: TObject); var hCalc, h1: Cardinal; begin WinExec('calc', SW_SHOWNORMAL);//运行计算器 hCalc := Find ...
经过这段时间对delphi中free 和 release 的仔细学习,先总结如下: 1。form.free直接释放资源后,调用OnDestroy事件,但是没有将form指针改为nil 2。form.release 等待资源不再使用后释放资源,同样不修改form指针为nil,所以在destroy中最好使用    release进行资源释放操作。 3。局部变量释放资源时,可以考虑用freeandnil()释放资源,这样效率会高些,能提高内存的利用率 4。 在对窗体操作时,单纯通过assigned(form1)判断窗体是否已经创建是不够的,因为如果窗体通过free   /release进 ...
用delphi2010调试一个以前的程序,因为以前的程序是delphi7下编写的,大家都知道delphi7下的用的是indy9,后面的主流版本都是用indy10啦。 所以以前用的Temp1 := UTF8Decode(Temp); Temp1 := Utf8ToAnsi(Temp); Temp1 := UTF8Decode(Temp); Temp1 := UTF8Encode(Temp); 这类函数在2010下是不推荐使用的,而且不能把uft8转成decode. 得到的中文字符全是??。 看来indy10的uft8处理有点麻烦。在这边我是用数据流的办法解决的:var idht ...
var   wDoc:IHTMLDocument2;   wc:IHTMLWindow2;   Dispatch:IDispatch; begin    //遍历emWb:TEmbeddedWB的Frames    if emWb <> nil then    begin      wDoc := ((emWb.Document as IHTMLDocument2));      if Assigned(wDoc) then      begin            for i=0 to wDoc.frams.length -1 do //遍历      ...
前两年写“(POS打印机LPT1口)卡密打印工具”,现在还有人用,真是慰啊!有网友邮件反馈问题BUG,今天上来更新一下,加了字号调整功能。 打印核心代码:   程序界面如下: 功能介绍: 主要用于售点卡处,用POS机打印充值卡帐号密码。 增加批量复制功能: 如:    卡号              密码 K12332131,1212121 K12332132,7233129 K12332133,8263158 K12332134,9294124   像这种,你可以一次全部复制,点击程序卡号文本框右侧的“<-”按钮,一次性即可粘贴。     另外: ...
//函 数 名: IsDigit //返 回 值: boolean //日       期:2011-03-01 //参       数: String //功       能: 判断一个字符串是否为数字 //作       者:liubin //*************************************************************************** function IsDigit(S:String):Boolean; //变量S为要判断的字符串,返回true则正确 var i,j:integer; begin     Res ...
使用EmbeddedWB控件的时候,发现有一些错误完全无法用try..except去接,这些错误的提示并非是通过Raize抛出的,而是通过Windows消息传递而来,因此要解决此问题,必须从消息下手。 在EmbeddedWB.pas中,找到重写消息的方法,即TEmbeddedWB.FormWndProc(),其中的代码即是消息的接收,而看其他码,它正是处理了WM_ACTIVATE消息,即有对话框弹出时触发的消息。 即然出错信息也是对话框,那么从此消息跟入就不会有错,继续往下读代码,发现有一句 SetWindowText(Wnd, PChar(S)); 直觉告诉我应该在此处下个断点,下了之 ...
Global site tag (gtag.js) - Google Analytics