Welche unit wird benötigt?

[ghost007]

Hi,
hab das ma einfach zum testen reinkopiert.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
 var
  TB: Commctrl.TBBUTTONINFO; p: Commctrl.PTBBUTTONINFO;
  ProcessHandle: THandle;
begin
  ProcessHandle:=GetWindowThreadProcessID(wnd,nil);
  p := VirtualAllocEx(ProcessHandle, nil, SizeOf(TB), MEM_COMMIT, PAGE_READWRITE);
  TB.cbSize := SizeOf(TB);
  TB.dwMask := CommCtrl.TBIF_COMMAND;
  WriteProcessMemory(ProcessHandle, p, @TB, SizeOf(TB.cbSize) + SizeOf(TB.dwMask), nil);//HIER ERROR
  SendMessage(wnd, TB_GETBUTTONINFO, BtnIndex, Cardinal(p));
  ReadProcessMemory(ProcessHandle, p, @TB, SizeOf(TB), nil);
  SendMessage(wnd, TB_PRESSBUTTON, TB.idCommand, MAKELONG (1, 0));
  VirtualFreeEx(ProcessHandle,  p, 0, MEM_RELEASE);
end;

An der gekennzeichneten stelle bekomm ich einen error: "Types of actual and formal var parameters must be identical"

MfG - Ghost007