drag0n's blog

SendMessage(theMainForm.Handle, WM_COMMAND,
            MakeLong(MenuHandle, 0), 0);
例:
m:=GetMenu(h);
s:=GetSubMenu(m,1);
s1:=GetSubMenu(s,6);
SendMessage(h,WM_COMMAND,MakeLong(GetMenuItemId...

以下命令可以直接在Windows的运行窗口直接执行，在Delphi中你要这样使用：
winexec(Pchar('ABCD'),sw_Show);
其中"ABCD"代表以下命令之一：
"rundll32 shell32,Control_RunDLL" - 运行控制面板
"rundll32 shell32,OpenAs_RunDLL" - 打开"打开方式"窗口
"...

function hextoint(s: string): Integer;
begin //$代表16进制
Result := StrToInt('$' + s);
end;

function ScanStreamA(T: Tstream; S: string): integer;
var i, j: integer;
p: Pchar;
begin
getMem(p, T.size); //分配内存...

//将以下保存为 RC 文件，编译为 RES 资源文件
STRINGTABLE
BEGIN
1,"开始"
2,"退出"
END

//使用方法
var
s: string;
begin
s := LoadStr(1);
if s <> '' then
    BtnStart.Ca...

function CopyProgress(
TotalFileSize         : LARGE_INTEGER; // total file size, in bytes
TotalBytesTransferred : LARGE_INTEGER; // total number of bytes transferred
StreamSize   &n...

procedure refreshSys();

var R : Cardinal;

begin

RegWriteInteger(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer','NoRun', 0);

SendMessageTimeout(HWND_BROADCAST,WM_SETTINGCHA...

由于启动文件要在win32上运行，所以就用了VC++6来进行写程序了，使用该启动程序来进行启动外部程序（我们的.net程序）

代码如下

// 文本隔行加亮2.cpp : Defines the entry point for the application.

       //

      #includ...

将dll从进程模块列表中移除并保持正常运行，这玩意想想是挺简单，n久前byshell就用了，

简单的思路就是给当前的dll内存映像做份拷贝，然后跳到那份拷贝的地址空间的代码，回头free掉原来的dll，

然后马上用VirtualAlloc在原基址上申请块同样大小的空间，并将那份拷贝还原回去，再跳回去执行。完。

代码写完后再实际程序中应用后发现问题，一旦调用到malloc或new的话就会崩溃，
于是去看了下byshell的代码...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Winsvc, ComCtrls, Ext...

 FileName: Unit1.pas
  功用: 列举系统服务,停止和启动所选服务,设置服务启动类型
  最后更新: 2005-04-20
  日期: 2005-04-19
  作者: yanxizhen yanxizhen#163.com
 }
unit Unit1;...