摘要：
//RichEdit1// 设置颜色Color{设置颜色后开始选中的部分仍然是选中的}//richedit1.SelAttributes.Colorprocedure TForm1.Button1Click(Sender: TObject);beginRichEdit1.SelAttributes.Color := clRed;end;// 对ColorBox1procedure TForm1.B... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(203)
评论(0)
推荐(0)
摘要：
//reg怎样存取注册表信息uses Registry;//放在uses下面varForm1: TForm1;My_key:Tregistry;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); //WriteStringbeginMy_key:=Tregistry.Create;My_key.RootKe... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(129)
评论(0)
推荐(0)
摘要：
//获得操作系统的序列号uses Registry;procedure TForm1.Button1Click(Sender: TObject);//Windows XP有效varreg: TRegistry;result:string;beginResult := '';reg := TRegistry.Create; //生成注册表对象with reg dobeginRootKey := HK... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(143)
评论(0)
推荐(0)
摘要：
功能说明：为程序创建快捷方式uses registry,ActiveX,Comobj,Shlobj;constIID_IPersistFile: TGUID=(D1:$0000010B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));function GetShellFolder (constfolder:string):string... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(177)
评论(0)
推荐(0)
摘要：
//动态创建窗体和释放窗体{在Delphi中窗体是TForm类的子类，在程序运行过程中，可以动态创建这个类的实例对象。首先声明一个窗口对象，然后调用TForm类的Create方法创建对象。Constructor Create(AOwner:TComponent);AOwner 窗口的拥有者可以调用 Show或者ShowModal方法将窗口显示 出来最后用 Free方法释放窗体资源。创建2个窗体fo... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(336)
评论(0)
推荐(0)
摘要：
功能说明：获取文件属性uses ShellApi;procedure TForm1.Button1Click(Sender: TObject);varfilename :string;sei : TShellExecuteInfo;beginif opendialog1.Execute thenbeginfilename:=opendialog1.FileName;FillChar(sei,Siz... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(158)
评论(0)
推荐(0)
摘要：
//ShellExecuteShellExecute(hWnd: HWND; {指定父窗口句柄}Operation: PChar; {指定动作, 譬如: open、print}FileName: PChar; {指定要打开的文件或程序}Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil}Directory: PChar; {缺省目录}ShowCmd: Integer {打开选项}): HINST; {执行成功会返回应用程序句柄; 如果这个值 <= 32, 表示执行错误}//返回值可能的错误有:= 0 {内存不足}ERROR_FILE_NO 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(370)
评论(0)
推荐(0)
摘要：
//调用搜索引擎uses ShellAPI;//google web searchprocedure TForm1.Button1Click(Sender: TObject);varSearchStr:PWideChar;SearchEngineStr:string;beginSearchEngineStr:='http://search.yahoo.com/search?p=';SearchSt... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(195)
评论(0)
推荐(0)
摘要：
//托盘程序完整版本{需要控件ImageList1PopupMenu1其他:2个Icon图标}uses Shellapi;{引入Shellapi}{在Interface的uses下面定义}ConstMy_IconEvent = WM_USER + 1000;private{ Private declarations }myIcon:TNotifyIcondata;NormalIcon,Disabl... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(165)
评论(0)
推荐(0)
摘要：
{修改目标窗口标题} //调用SetWindowTextA('Form1','HellWord'); functionSetWindowTextA(oldtext:string;newtext:string):Boolean; varh:HWND; begin Result:=false; h:=Findwindow(nil,Pchar(oldtext));//PansiChar=Pchar se... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(775)
评论(0)
推荐(0)
摘要：
功能说明：SetWindowRgn文字窗体procedureTForm1.FormCreate(Sender: TObject);varrgn:HRGN;beginBeginPath(Canvas.Handle);//绘制的开始路径SetBkMode( Canvas.Handle, TRANSPARENT );Canvas.Font.Name:='宋体';//设定字体Canvas.Font.Siz... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(238)
评论(0)
推荐(0)
摘要：
{隐藏任务栏}procedure TForm1.Button1Click(Sender: TObject);varwndHandle : THandle;wndClass :array [0..50] of Char;beginStrPCopy(@wndClass[0],'Shell_TrayWnd');wndHandle:=FindWindow(@wndClass[0],nil);ShowWin... 阅读全文
posted @ 2012-06-02 10:09
XE2011
阅读(309)
评论(0)
推荐(0)
摘要：
SetWindowLong隐藏状态栏的图标//SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClassprocedure TForm1.FormShow(Sender: TObject);begin ShowWindow(Application.handle,SW_HIDE);end;procedure TForm1.Button1Click(Sender: TObject);beginShowWindow(Application.Handle, SW_HIDE);//隐藏任务栏中的图标 SetWindowLong(Application.Han. 阅读全文
posted @ 2012-06-02 10:09
XE2011
阅读(1226)
评论(0)
推荐(0)
摘要：
//触摸屏系统procedure TForm1.Label1Click(Sender: TObject);beginForm1.Visible := false;Application.CreateForm(TForm2, Form2);Form2.ShowModal;Form2.Free;end;procedure TForm1.FormCreate(Sender: TObject);begin... 阅读全文
posted @ 2012-06-02 10:09
XE2011
阅读(166)
评论(0)
推荐(0)
摘要：
//在标题栏绘制文字procedure TForm1.Button1Click(Sender: TObject);var dc:hdc;cvs:tcanvas;begindc:=getwindowdc(handle);//取得窗体的句柄cvs:=tcanvas.create; //生成画布cvs.Handle:=dc;cvs.textout(100,8,'my capt... 阅读全文
posted @ 2012-06-02 10:08
XE2011
阅读(232)
评论(0)
推荐(0)
浙公网安备 33010602011771号