摘要：
{******************************************************************************* 半透明窗体控件 版本：1.0 功能说明 : 1.支持颜色和图片半透明 2.暂时只能手动指定背景图片 3.可调透明度(0..255) 4.可控制是否可移动窗体 联系方式： Email: mdejtoz@163.com*******************************************************************************}unit uTranslucentForm;i... 阅读全文
摘要：
procedure TForm1.Button1Click(Sender: TObject);varh: HWND;FormStyle: Integer;beginh := self.Handle;FormStyle := GetWindowLong(h, GWL_EXSTYLE);SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);SetLayeredWindowAttributes(h, 0, 128, LWA_ALPHA);end; procedure TForm1.Button2Click(Sender: TObject. 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg;type TForm1 = class(TForm) pnl1: TPanel; pnl2: TPanel; img1: TImage; img2: TImage; btn1: TButton; procedure btn1Click(Sender: TObject); proced... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;const Penwidth = 1;//画笔的粗细 Len = 20;//箭头线的长度 {说明：这两个常量应该一起变化，具体值由效果来定。 当Penwidth很小时，显示的效果不是太好}type TForm1 = class(TForm) procedure For... 阅读全文
摘要：
private string GetMD5Hash(string input) { System.Security.Cryptography.MD5CryptoServiceProvider x = new System.Security.Cryptography.MD5CryptoServiceProvider(); byte[] bs = System.Text.Encoding.UTF8.GetBytes(input); bs = x.ComputeHash(bs); System.Text.StringBuilder... 阅读全文
摘要：
string checkCode = "1234";//1234随机数 int iwidth = (int)(checkCode.Length * 11.5); //封装 GDI+ 位图，此位图由图形图像及其属性的像素数据组成 .指定宽度和高度。以象素为单位 System.Drawing.Bitmap image = new System.Drawing.Bitmap(iwidth, 20); //封装一个 GDI+ 绘图图面。无法继承此类. 从指定的 Image 创建新的 Graphics Graphics... 阅读全文
摘要：
客户端代码：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,IdBaseComponent,IdComponent,IdTCPConnection,IdTCPClient,IdHTTP,StdCtrls;typeTForm1=class(TForm)IdHTTP1:TIdHTTP;Button1:TButton;Button2:TButton;Memo1:TMemo;procedureButton2Click(Sender:TObject);pri 阅读全文
摘要：
DWORDGetTickCount(void);1) 定义For Release configurations, this function returns the number of milliseconds since the device booted, excluding any time that the system was suspended.GetTickCountstarts at 0 on boot and then counts up from there.在Release版本中，该函数从0开始计时，返回自设备启动后的毫秒数（不含系统暂停时间）。For Debug con 阅读全文
摘要：
restore database td_data from disk = 'f:\jcbacknew.bak'with replace; 阅读全文
摘要：
--常规SQL SERVER数据库置疑后恢复步骤 --1． 恢复步骤： --a.将smlog_log.ldf文件备份到其它目录下； --b.将源目录下的smlog_log.ldf文件改名为smlog_log_bak.ldf； --c.执行以下语句修改数据库的状态： use Master go update sysdatabases set status=32768 where name='数据库名称' --修改状态,設為緊急狀態 go shutdown with nowait --停止数据库服务器 go --d.退出SQL并在(COMMA... 阅读全文