![](https://img-blog.csdnimg.cn/20201014180756913.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 56
WhoMovedMyCheese
这个作者很懒,什么都没留下…
展开
-
Stack Class
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; proce转载 2009-11-29 11:32:00 · 510 阅读 · 0 评论 -
BMP JPG Graphic interconvert
uses Graphics, Jpeg;procedure BMP2JPG(const BMPFile: string);var BMP: TBitmap; JPG: TJpegImage; FileName: string;begin FileName := BMPFile; BMP := TBitmap.Create; JP原创 2009-11-29 15:33:00 · 450 阅读 · 0 评论 -
Incremental Searching for a ListBox
//Need set TabWidth = 20 ListBox1.Items.Add(First^ISecond^IThird) ; ListBox1.Items.Add(C1R1^IC2R1^IC3R1) ; ListBox1.Items.Add(C1R2^IC2R2^IC3R2) ; ListBox1.Items.Add(C1转载 2009-12-09 11:11:00 · 578 阅读 · 0 评论 -
Application.HookMainWindow(AppHook)
type TMainForm = class(TForm) procedure FormCreate(Sender: TObject) ; procedure FormDestroy(Sender: TObject) ; private function AppHook(var msg: TMessage): boolean; end;imp转载 2009-12-10 19:55:00 · 1172 阅读 · 0 评论 -
Delphi 嵌入汇编 进Ring0 360tray.exe
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TlHelp32;type TForm1 = class(TForm) Button1: TButton;转载 2009-12-20 14:21:00 · 2708 阅读 · 2 评论 -
Delete Self
procedure DeleteMe;var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo;begin BatchFileName := ExtractFilePath(ParamStr(0)) +转载 2009-12-22 23:17:00 · 880 阅读 · 0 评论 -
Delphi屏蔽标题栏关闭按钮
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED); EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);转载 2009-12-22 23:25:00 · 2071 阅读 · 0 评论 -
Delphi {$J+}
procedure TForm1.Button1Click(Sender: TObject);{$J+}const I: Integer = 1;{$J-}begin Inc(I); ShowMessage(IntToStr(I));end;原创 2009-12-26 22:11:00 · 1391 阅读 · 0 评论 -
unit uThreadPool
unit uThreadPool;{ aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }interfaceuses Windows, Classes;// 是否记录日志// {$DEFINE NOLOGS}type TCriticalSect转载 2009-12-26 22:12:00 · 849 阅读 · 0 评论 -
ANimateWindow
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin ANimateWindow (Handle,200,AW_SLIDE+AW_HOR_POSITIVE+AW_HIDE);end;procedure TForm1.FormShow(Sender: TObject);begi转载 2009-11-29 11:40:00 · 515 阅读 · 0 评论 -
Delphi实现透明窗体
unit unitMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; But转载 2009-12-01 10:30:00 · 3334 阅读 · 0 评论 -
Delphi PureAPIWindow program
program PureAPIWindow;uses SysUtils, Windows, Messages;const WinClassName = DvsClass; StrOut = Davis TextOut;//窗口回调函数function MyWinProc( hWindow: HWND;原创 2009-12-01 10:19:00 · 608 阅读 · 0 评论 -
mouse_event & keybd_event
//Delphi code = C codevoid MyMouseClick(){ mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);}void MyMouseDBClick(){ mouse_eve原创 2009-11-29 12:40:00 · 849 阅读 · 0 评论 -
Delphi双向链表类
unit DvsLinkingClass;interfaceuses Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;typePRecLinkNode = ^RecLinkNode; RecLinkNode = record NodeMsg: String; Counte原创 2009-11-29 15:39:00 · 2741 阅读 · 0 评论 -
Allow Only One Application Execution Per Windows Session
program Project1;uses Windows, Forms, Unit1 in Unit1.pas {Form1};{$R *.res}begin Application.Initialize; if 0 = GlobalFindAtom(SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICA转载 2009-11-29 11:38:00 · 482 阅读 · 0 评论 -
Delphi Pubic Function
function GetFileSizeString(const pFileName: String):String;var iFileSize: Int64;begin Result := 0; iFileSize := FileSizeByName(pFileName); Result := IntToStr(iFileSize);end; fu原创 2009-11-29 15:25:00 · 592 阅读 · 0 评论 -
function Pos Override
function MyGetPos(const aSour:string;const aChar:Char):integer; function GetPos(aSour:PChar;aChar:Char;aLen:Integer):Integer; assembler; asm push ebp push esi push edi mov e原创 2009-11-29 15:36:00 · 616 阅读 · 0 评论 -
Delphi文件操作
unit unitFileOP;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;implementationfunction GetSys32Dir:String;var Sys32原创 2009-11-29 15:43:00 · 818 阅读 · 0 评论 -
Delete Delphi temporary file
Rem Delete Delphi temporary fileRem ****************************@echo Delete Delphi temporary file@dir/w/s *.~*@echo 以上为当前目录及子目录临时文件,请按任意键确认删除!@pause@for /r . %%a in (.) do @if exist "%%a/*.~*" del "%原创 2009-12-01 10:24:00 · 674 阅读 · 0 评论 -
Delphi关联文件扩展名
unit unitMain;interfaceuses Registry, shlobj, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TExtForm = class(TForm转载 2009-12-01 10:40:00 · 1410 阅读 · 1 评论 -
Delphi Register Test
var Form1: TForm1; a, b, c: Integer;implementation{$R *.dfm}procedure test1(x, y, z: integer);asm mov a,eax mov b,edx mov c,ecxend;procedure test2(x, y, z: integer);原创 2009-12-29 10:32:00 · 756 阅读 · 0 评论