2015年12月2日
Delphi中运行时改变panel的位置及大小（WM_SysCommand消息配合参数使用，很奇妙） good
procedure TForm1.pnl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture;SendMessage(pnl1.Handl... Read More
posted @ 2015-12-02 06:41 findumars Views(583) Comments(0) Diggs(0)
Delphi判断一个文件是不是JPG图片
判断头几个字节：function IsJpegFile(FileName: string): Boolean;constRightBuf : array[0..3] of Byte = ($FF,$D8,$FF,$D9);varBuf: array[0..3] of Byte;beginFillCh... Read More
posted @ 2015-12-02 06:34 findumars Views(794) Comments(0) Diggs(0)
delphi中覆盖最大化消息（WM_GETMINMAXINFO）
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;typeTForm1 = class(TForm)private{ Private declaration... Read More
posted @ 2015-12-02 06:30 findumars Views(619) Comments(0) Diggs(0)
Delphi中TWebBrowser中注入Js
最近帮朋友做一个软件，其中要自动化某网页中的操作，最简的操作是调用自己写的代码。代码如下：procedure TForm1.Button2Click(Sender: TObject);var i:integer; h:IHTMLHeaderElement; o:OleVariant;begin o:... Read More
posted @ 2015-12-02 06:26 findumars Views(650) Comments(0) Diggs(0)
delphi写的整合汇编与api的简单的窗口程序
program Project1;{ Types and Structures Definition }type WNDCLASSEX = packed record cbSize: LongWord; style: LongWord; lpfnWndProc: Pointer; cbCls... Read More
posted @ 2015-12-02 06:23 findumars Views(540) Comments(0) Diggs(0)