Delphi的托盘编程   .现在很多程序都用这个,比如傲游,迅雷等,主要代码如下: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, AppEvnts, StdCtrls, Menus; const WM_NID = WM_User + 1000; //声明一个常量 private { Private declarations } // 定义两个函…

unit MainUnit; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ShellAPI, StdCtrls, Buttons;//涉及到系统编程方面都要用到API函数 const  WM_NID= WM_USER+1000;//系统规定从WM_USER开始为用户自定义消息. type  TForm1 = class(TForm)   …

Delphi自定义消息应用及delphi托盘实现interfaceuses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi;const  WindowsMessage =WM_USER+101   ;procedure UserPro(Var Message:TMessage):message WindowsMessage 其中UserP…

收集的两个托盘程序: 1. 托盘区就是在windows的状态栏下方显示时钟.输入法状态的地方, 要把你的程序显示在托盘区: 下面是一个托盘类,只要把下面粘贴到文本文件中,改成TrayIcon.pas,使用时uses TrayIcon就可以了. 先声明一个全局变量: var tray:TTrayNotifyIcon; 然后在窗体的OnCreate事件中: tray:=TTrayNotifyIcon.Create(self);//将窗体创建为托盘 tray.Icon:=application.Ico…

第一次应工作需呀,接触这个语言,今晚在自己的电脑搭建好环境,写的第一个超简单的Delphi小程序! var temp:Integer; //求个位数 procedure TForm1.BitBtn1Click(Sender: TObject); begin temp := StrToInt(Edit1.Text); Label1.Caption := IntToStr(temp Mod ); end; //十位数 procedure TForm1.BitBtn2Click(Sender: TOb…

Delphi:程序自己删除自己,适用于任何windows版本(含源码) function Suicide: Boolean; var   sei: TSHELLEXECUTEINFO;   szModule:  PChar;   szComspec: PChar;   szParams:  PChar; begin   szModule  := AllocMem(MAX_PATH);   szComspec := AllocMem(MAX_PATH);   szParams  := AllocM…

Delphi应用程序的调试(五)其他调试工具 Delphi7中提供了一些附加调试工具来帮助用户检查程序错误.从性能上讲,其中一些工具属于高级调试工具.尽管高级调试工具不像其他工具那样常用,但对于经验丰富的编程人员来说,它们是非常有用的. Evaluate/Modify对话框(The Evaluate/Modify Dialog Box) 该对话框用于检查变量的当前值和修改变量的值.使用这个对话框,用户可以修改某个变量的值来测试不同的输出结果.在调试期间改变一个变量的值,使用户能测试程序不同参数的…

Delphi应用程序的调试(二)使用断点 使用断点(Using Breakpoints) 当用户从Delphi IDE 运行程序时,程序全速运行,只会在设置了断点的地方停住. New Term 断点(breakpoint)是一种标记,用以通知编译器,当程序运行到断点所在位置时暂停程序的执行. 设置和清除断点(Setting and Clearing Breakpoints) 断点的设置可通过点击Code Editor的沟槽来进行:要在代码的某一行暂停程序执行,就在沟槽中与该行相对应的位置上点击鼠…

使用QSystemTrayIcon类可以实现托盘程序.在这里使用QMainWindow做实例: mainwindow.h头文件 #ifndef MAINWINDOW_H #define MAINWINDOW_H #include <QMainWindow> #include <QSystemTrayIcon> #include <QAction> #include <QMenu> #include <QCloseEvent> namespace…

程序设计界面如下图所示: 1.在程序初始化加载的时候设置程序图标,具体code如下: private void Form1_Load(object sender, EventArgs e) { //this.ShowInTaskbar = false; //this.WindowState = FormWindowState.Minimized; string startUp = Application.ExecutablePath; int pp = startUp.LastIndexOf("…