摘要：
//SavetoFile bmp文件转换成 icoprocedure TForm1.Button1Click(Sender: TObject);beginwith Image1.Picture dobeginSavetoFile('C:\frombmp.ico');end;end;通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(135)
评论(0)
推荐(0)
摘要：
//SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClassprocedure TForm1.FormCreate(Sender: TObject);begin ShowWindow(Application.Handle, SW_HIDE);//隐藏任务栏中图标 SetWindowLong(Application.Handle, GWL_EXSTYLE... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(684)
评论(0)
推荐(0)
摘要：
//SetWindowLong在按钮中显示两行文字procedure TForm1.FormCreate(Sender: TObject);beginSetWindowLong(button1.Handle,gwl_style,getwindowlong(button1.Handle,gwl_style)or bs_multiline);button1.Caption := '退'+ #13 +'... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(206)
评论(0)
推荐(0)
摘要：
//SetWindowLong代码设置窗体borderStyle风格 TOOLWINDOWSetWindowLong(self.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);通过 Wiz 发布 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(340)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);begin//隐藏标题栏SetWindowLong(Form1.Handle,GWL_STYLE, GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION);H... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(1399)
评论(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)
摘要：
//动态创建窗体和释放窗体{在Delphi中窗体是TForm类的子类，在程序运行过程中，可以动态创建这个类的实例对象。首先声明一个窗口对象，然后调用TForm类的Create方法创建对象。Constructor Create(AOwner:TComponent);AOwner 窗口的拥有者可以调用 Show或者ShowModal方法将窗口显示 出来最后用 Free方法释放窗体资源。创建2个窗体fo... 阅读全文
posted @ 2012-06-02 10:10
XE2011
阅读(340)
评论(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
阅读(159)
评论(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
阅读(371)
评论(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
阅读(196)
评论(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
阅读(166)
评论(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
阅读(1229)
评论(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
阅读(168)
评论(0)
推荐(0)
浙公网安备 33010602011771号