摘要:
EDIT Ini写Ini配置
usesIniFiles; {$R*.dfm} function IniFileName:string;
begin Result:=ExtractFilePath(Application.ExeName)+'Settings.ini';
end;
procedureSaveConfig(Edit:TEdit); beginwithTI... 阅读全文
摘要:
效果不正确unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Bu... 阅读全文
摘要:
//这样就是左键单击mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );// 按下mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );//弹起//这样就是双击了!mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );// 按下mouse_event( MOU... 阅读全文
摘要:
模拟TAB键 (2013/6/7 22:35:29)SelectNext(ActiveControl,True,True); 屏蔽Alt+F4关闭键 (2013/6/7 22:35:39)启动某些程序,使用Alt+F4键,可以快速的退出程序,可是如果是做一个屏幕保护程序的话,那么这个方便将成为绊脚石,所以有必要令该功能键失去作用,所以我们使用了窗体的OnKeyDown事件来检测击键:proced... 阅读全文
摘要:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, AppEvnts, ComCtrls;typeTForm1 = class(TForm)StatusBar1: TStatusBar;Applicatio... 阅读全文
摘要:
将窗体资源分装到DLL中并且调用用Delphi生成DLL并封装窗体的示例调用Dll里面的窗体
DLL文件 library Project2;{ Important note about DLL memory management: ... 阅读全文
摘要:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;//定义类型要与原函数一样function GetUserDefaultUILanguage():Integer;external 'Ke... 阅读全文
摘要:
Dll的创建与调用 File ->New->Other->Dll Wizard
DLL的创建
//可以将本代码复制粘贴到项目中
library Project1; uses SysUtils, Classes, Windows, Forms; {$R *.res} function Min(x,y:Integer):Integer;stdcall;
begin i... 阅读全文
摘要:
//刷新系统桌面
//方法1 uses ShlObj; SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); -------------------------------------------------------------------------------- //方法2 SendMessage(FindWindow(... 阅读全文
摘要:
{turn monitor off}SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2); //关闭显示器{turn monitor on}SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
来自为知笔记(Wiz) 阅读全文
摘要:
C:\Users\ADMINI~1\AppData\Local\Temp\ //GetTempPath获得临时文件目录(Temp文件夹) function TempPath:String;vartmp:array [0..MAX_PATH] of Char;beginGetTempPath(MAX_PATH,tmp);Result:= tmp;end; proc... 阅读全文
摘要:
//关闭计算器 procedure TForm1.Button1Click(Sender: TObject); var HWndCalculator: HWnd; begin HWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄 if HWndCalculator 0 then SendMessage(HW... 阅读全文
摘要:
var s:string='aaa'; s1:string; procedureTForm1.Button1Click(Sender:TObject); begin s1:=Format('确定要删除%s这个文件夹吗?',[s]); ifApplication.MessageBox(PAnsiChar(s1),'提示',MB_YESNO... 阅读全文
摘要:
保存Image1图片 procedure TForm2.Button1Click(Sender: TObject);beginwith TSaveDialog.Create(nil) dobeginFilter:='JPEG file(*.jpg;*.jpeg)|*.jpg;*.jpeg|PNG file(*.png)|*.png|Bit... 阅读全文
摘要:
捕捉整个桌面的图片 但不捕捉自己这个窗体 procedure TForm2.Button3Click(Sender: TObject);varBitmap: Tbitmap;BitmapCanvas: TCanvas;dc: HDC;DeskTopWidth,DeskTopHeight:Integer;beginDeskTopWidth:= Screen.Widt... 阅读全文