摘要:
unit untCRCMD5;interface{ 获取文件CRC校验码 }function GetFileCRC(const iFileName: string): String;{ 获取字符串CRC校验码 }function GetStringCRC(const Str: string): Cardinal;{ 取文件MD5码 }function GetFileMD5(const iFileName: string): String;implementationuses Classes, IdHashMessageDigest, IdHashCRC;{ 获取文件CRC校验码 }functi 阅读全文
摘要:
创建存储过程if exists (select * from sysobjects where id= object_id('prGetMenu') and objectproperty (id, 'isProcedure') =1 )drop procedure prGetMenuGOcreate procedure prGetMenu @intMenuid int = 38, @name varchar(24) outputas declare @menuid int select @menuid= min(id) from menu select @nam 阅读全文
摘要:
SELECT (case when a.colorder=1 then d.name else '' end) as 表名, a.colorder as 字段序号, a.name as 字段名, (case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else '' end) as 标识, (case when (SELECT count(*) FROM sysobjects WHERE (name in (SELECT name FROM sysindexes 阅读全文
摘要:
//方法一procedure TForm1.Button1Click(Sender: TObject);var H_window: HWND; Text: array[0..255] of char;begin H_window := GetWindow(Handle,GW_HWNDFIRST); While H_window<>0 do begin if GETWindowText(H_window,@text,255)>0 then if((StrPas(@Text)='QQ2012'))then sendmessage(H_window,WM_SYSCO 阅读全文
摘要:
1.>>>5秒后提示,但只有一次============================================ procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;begin vLastInputInfo.cbSize := SizeOf(vLastInputInfo); GetLastInputInfo(vLastInputInfo);if GetTickCount - vLastInputInfo.dwTime > 5000 then begin 阅读全文
摘要:
{private procedure DrawFocusRectangle(sender: TObject); public { Public declarations } end;}var Form1: TForm1; FocusRectangle: TShape;implementation{$R *.dfm}//窗体创建事件中加如下代码procedure TForm1.FormCreate(Sender: TObject);begin FocusRectangle := TShape.Create(Self); FocusRectangle.Shape := ... 阅读全文
摘要:
uses ShellAPI;ShellExecute(Handle,'open','Explorer.exe','C:\Windows',nil,1); 阅读全文
摘要:
uses OleDB, ActiveX, ComObj;var DataInit: IDataInitialize; //定义接口 SouPath, SouStr, DesStr: POleStr; tmp, s1, s2: string;begin tmp := 'C:\Program Files\Common Files\System\Ole DB\Data Links\ShichADOConfig.UDL'; SouPath := StringToOleStr(tmp); DataInit := CreateComObject(CLSID_... 阅读全文
摘要:
select id,orderdatetime from [泰菲阁].[dbo].[orders] union select id,orderdatetime from [好记].[dbo].[orders] 阅读全文
摘要:
var encoderClsid: TGUID; stat: TStatus; image: TGPImage;begin image := TGPImage.Create('a.bmp'); GetEncoderClsid('image/jpeg', encoderClsid); stat := image.save('a.jpg', encoderClsid, nil); if ( stat= OK ) then memo1.lines.add('Save Successfully!') else memo1.lines.ad 阅读全文