摘要：
//SelectDirectory在Delphi中定位文件夹位置function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;function SelectDirectory(const Caption: string; const Root: WideStri... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(246)
评论(0)
推荐(0)
摘要：
//SelectDirectory在Delphi中定位文件夹位置procedureTForm1.Button1Click(Sender: TObject);//直接定位文件' 打开一个文件beginOpenDialog1.Execute;//执行“打开”文件对话框Label1.Caption:=OpenDialog1.FileName;//将返回的结果值传递给控件Label1//要注意，只有当用户... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(424)
评论(0)
推荐(0)
摘要：
//Screen获取桌面分辨率大小{Screen.Width 宽Screen.Height 高这样可以根据显示器的分辨率信息设置窗体大小及位置}procedure TForm1.Button1Click(Sender: TObject);beginSelf.Memo1.Lines.Add('DeskTopResolution');Self.Memo1.Lines.Add('Width :'+Int... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(188)
评论(0)
推荐(0)
摘要：
功能说明：Screen.Cursor把光标隐藏一段时间varMouseHide: Boolean;{在公共部分声明}procedureDoMouse;beginifMouseHidethenbeginScreen.Cursor:=crDefault;{ 恢复鼠标 }MouseHide:=False;endelseForm1.Timer1.Enabled:=True;end;procedureTFo... 阅读全文
posted @ 2012-06-02 10:12
XE2011
阅读(211)
评论(0)
推荐(0)
摘要：
//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)
摘要：
{修改目标窗口标题} //调用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
阅读(780)
评论(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
阅读(342)
评论(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
阅读(377)
评论(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
阅读(310)
评论(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
阅读(1231)
评论(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号