操纵其他程序的SysDateTimePick32

阿杰

procedure TForm1.Button1Click(Sender: TObject);
var   
  Mwd,Cwd: LongInt;
  st: TSystemTime;
  pid,phd: thandle;
  p: pointer;
  l: dword;
  b: boolean;
begin   
  Mwd := h;  // (h是父窗口句柄，事先取不赘述)

  GetWindowThreadProcessId(mwd, pid);
  phd := openprocess(PROCESS_ALL_ACCESS, true, pid);
  VirtualAllocEx(phd,p,sizeof(st), MEM_COMMIT, PAGE_READWRITE);
  if p = nil then
  begin
    ShowMessage('error1');
    exit;
  end;
  l:=0;

  Cwd := FindWindowEx(Mwd, 0, 'SysDateTimePick32', nil);

  DateTimeToSystemTime(Date-6, st);
  b:=WriteProcessMemory(phd, p, @st, sizeof(st), l);
  if (not b) and (l<>sizeof(st)) then
  begin
    ShowMessage('error2');
    exit;
  end;
  PostMessage(cwd, DTM_SETSYSTEMTIME, GDT_VALID, longint(p));

  CloseHandle(phd);  // 这两行是重点，必须有
  p := nil;

end;   

说明：使用上面的代码操作时，一定不能动态申请内存，比如控件的hint之类，必须事先在全局变量中定义变量，让系统为变量事先分配内存，否则出错。

来源：http://www.slit.cn/bbs/forum.php?mod=viewthread&tid=494283

upring

thank you! ^_^