FindWindowEx - SysTabControl32

[toms]

und beim VNC kannst du es analog machen:

Delphi-Quellcode:

var
  wndVNC, wndSysTabCtrl: HWND;
  iTabNr: ShortInt;
begin
  wndVNC := FindWindow('#32770', 'VNC Server Properties (User-Mode)');
  if wndVNC <> 0 then
  begin
    wndSysTabCtrl := FindWindowEx(wndVNC, 0, 'SysTabControl32', nil);
    if wndSysTabCtrl <> 0 then
    begin
      SendMessage(wndSysTabCtrl, TCM_SETCURSEL, 4, 0); // Tab "Desktop" hat Index 4
    end;
  end;
end;