mailreboot的专栏

在程序中如何使用自定义消息版权所有 codesky.net 2003-2005发表时间：2003-8-18    关键字：不详 首先在单元的声明部分定义消息：const MY_Message=WM_USER+100; //用户自定义的消息范围为100～$7FFF；然后声明和定义消息处理过程：procedure MYMessage(var Msg:TMessage);message

源贴 http://www.delphibbs.com/keylife/iblog_show.asp?xid=16815首先要读懂源贴的基础上，来运行本实例1，新建一个工程文件project1.dprprogram Project1;uses SysUtils, Forms, Unit1 in Unit1.pas {Form1};{$R

var h:thandle;    s:string;    i:integer;begin  winexec(telnet bbs.fzu.edu.cn,sw_shownormal);  h := FindWindow(nil,telnet - bbs.fzu.edu.cn);  s:=bbs+#13+#10;  for i:=1 to length(s) do    sendm

if Application.MessageBox(确定關机?,確認關閉電腦,MB_YESNO   )=IDYES   thenbeginif RadioButton1.Checked=true   thenExitWindowsEx(EWX_LOGOFF,0)   //以其他用戶身份登錄else if RadioButton2.Checked=true   thenExitWindows

1.初始化和终止化uses ActiveX;initialization   OleInitialize(nil); finalization   try     OleUninitialize;   except   end; 2.EmptyParamEmptyParam是一个公用的Variant空变量，不要对它赋值var   t:OleVariant; begin   webb

原理：循环所有进程，取得相同名的进程，得到进程句柄，关闭killtask(cmd.exe);//结束进程function TForm1.KillTask(ExeFileName: string): Integer;const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessE

方法1：    conn   sys/change_on_install    select   name,value$   from   props$   where   name   =   NLS_CHARACTERSET;     方法2：    运行regedit，定位到：    HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE    找到以下字符串    NLS

winexec(pchar(c:/test/test.bat), SW_SHOW);第一个参数表示DOS命令的全路径，第二个表示运行方式SW_SHOW:显示运行，可以看得见DOS窗口SW_HIDE:隐藏运行，看不见DOS窗口还有SW_MAXIMIZE最小化运行，等 

前些公司的产品需要做一个自动登录的功能,就像外挂一样,把所有的心得写出来,所有的自动登录的软件的原理基本差不多.希望能起到抛砖引玉的作用.下面就是要登录的对话框 为了避免公司版本,所以在此去除了公司的信息及LOGO,上面就是一个用户名和密码对话框,点击确定,登录这个对话框是为C++开发的. 我们的自动登录工具是用DELPHI开发的下面是我们自动登录的软件的对话框现在简单介绍下主界面