Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: Welche unit wird benötigt?

    Delphi
    by bitsetter, 23. Dez 2007
  Das hättest du ja schon eher sagen können, dass du den VCL Player per Code steuern möchtest, den habe ich nämlich auch. Bei mir funktioniert auch da der Code(siehe Anhang). Die ersten 3 Buttons sind alle gedrückt und das war es auch schon, steuern lässt sich der Player mit dem Code jedenfalls nicht.
  
  Gibt es ja nicht, war der Player überhaupt an nicht dass das Handle = 0 war, bei mir kommt so...
• Forum: Win32/Win64 API (native code)

  Re: Welche unit wird benötigt?

    Delphi
    by bitsetter, 23. Dez 2007
  Hast du auch der Variable Wnd das Handle der Toolbar übergeben?
  Ansonsten habe ich es jetzt mal zum Testen so gemacht, dass der 2. Button in der Taskbar (ist ja auch eine Toolbar) von WinXP runtergedrückt wird.procedure TForm1.Button1Click(Sender: TObject);
  var
  TB: TTBBUTTON;
  p: PTBBUTTON;
  ProcessHandle, wnd: THandle;
  BytesR, ProcId: cardinal;
  count, loop, idx: integer;
  const
  ...
• Forum: Win32/Win64 API (native code)

  Re: Welche unit wird benötigt?

    Delphi
    by bitsetter, 23. Dez 2007
  Du hättest natürlich einige Fehlermeldungen einbauen können oder einfach F7 benutzen. :roll: procedure TForm1.Button4Click(Sender: TObject);
  var
  TB: Commctrl.TBBUTTONINFO; p: Commctrl.PTBBUTTONINFO;
  ProcessHandle, wnd: THandle;
  BytesW, BytesR, ProcId: cardinal;
  const
  BtnIndex= 0;
  begin
  wnd:= ...;
  GetWindowThreadProcessId(wnd, @ProcId);
• Forum: Win32/Win64 API (native code)

  Re: Welche unit wird benötigt?

    Delphi
    by bitsetter, 23. Dez 2007
  Hallo,
  
  bei mir funktioniert es jetzt:procedure TForm1.Button4Click(Sender: TObject);
  var
  TB: Commctrl.TBBUTTONINFO; p: Commctrl.PTBBUTTONINFO;
  ProcessHandle, wnd: THandle;
  BytesW, BytesR, ProcId: cardinal;
  const
  BtnIndex= 2;
  begin
• Forum: Win32/Win64 API (native code)

  Re: Welche unit wird benötigt?

    Delphi
    by bitsetter, 22. Dez 2007
  var
  BytesW: cardinal;
  begin
  WriteProcessMemory(ProcessHandle, p, @TB, SizeOf(TB.cbSize) + SizeOf(TB.dwMask), BytesW);
• Forum: Win32/Win64 API (native code)

  Re: Welche unit wird benötigt?

    Delphi
    by bitsetter, 22. Dez 2007
  Dann weißt du ja selber warum die Fehlermeldung kommt.
• Forum: Win32/Win64 API (native code)

  Re: Welche unit wird benötigt?

    Delphi
    by bitsetter, 22. Dez 2007
  Befindet sich die Toolbar denn überhaupt in deiner eigenen Anwendung?
• Forum: Win32/Win64 API (native code)

  Re: Welche unit wird benötigt?

    Delphi
    by bitsetter, 22. Dez 2007
  Versuche es mal so:const
  BtnIndex= 2;
  var
  TB: commctrl.TBBUTTONINFO;
  begin
  ZeroMemory(@TB, SizeOf(TB));
  TB.cbSize := sizeof(TB);
  TB.dwMask := commctrl.TBIF_COMMAND;
  SendMessage(..., TB_GETBUTTONINFO, BtnIndex, Cardinal(@TB));
  SendMessage(..., TB_PRESSBUTTON, TB.idCommand, MAKELONG (1, 0));
• Forum: Win32/Win64 API (native code)

  Re: Welche unit wird benötigt?

    Delphi
    by bitsetter, 22. Dez 2007
  Moin,
  
  jetzt auf einmal die Taskbar?
  Bei der Taskbar ist übrigens das ITaskbarList-Interface interessant.
  Wenn man in der Taskbar einen Button per Message drückt, wird der Button zwar gedrückt aber das entsprechende Fenster wurde dadurch nicht nach vorne geholt, das hatte ich schon mal ausprobiert.