[TidusX]

Добрый день!

Подскажите пожалуйста как создавать и переключать рабочие столы используя Win10 API

[lmikle]

а что, в гугле забанили.
На запрос он даже сам дает маленькую табличку с описанием:

Сообщение от google

How to create a new virtual desktop in Windows 10
Click the Task View button in your taskbar. It looks like a square over a rectangle. You can also simultaneously hit the Windows key and Tab key together on your keyboard.
Click New Desktop. It's located in the bottom right corner of your screen.

[TidusX]

lmikle, я облазил весь инет перед тем как задавать вопрос, вы мне скопипастили текст на английском, хотя такого текста полно и на русском как это делать ручками, я ж спрашиваю использую WINAPI значит программно, например пользователь поместил мою программу на второй рабочий стол, потом ушел на первый рабочий стол, программа как завершила свои действия программно выполнит переход на тот рабочий стол где она находится, чтоб пользователь сразу увидел, да много для чего это нужно, если пользуешься virtualbox`ом то там давно реализована такая функция перехода на тот рабочий стол где выполнятся виртуальная машина.

[TidusX]

Кажись не весь облазил еще) нашел на забугорном форуме http://stackoverflow.com/questions/4...ager-in-delphi
Просто нужно было гуглить IVirtualDesktop и IVirtualDesktopManager, а на русском гуглил гуглил и ниче нужного не на гуглил, над исправлять это дело)

[lmikle]

Нельзя так делать. Мало ли чем пользователь в это время занят.
Вставляй сообщение в Message Center.

[TidusX]

Да об этом можно много рассуждать, кого-то это может раздражать когда чужая программа поверх сама внезапно становится, кого-то наоборот радовать что сразу перед их глазами и они сразу видят что нужно в ней сделать, а не нужно вчитываться в эти сообщения, конечно по всякой фигне отвлекать пользователя таким образом не собираюсь, да и опция будет как уведомлять.
Теперь давайте по теме) на том форуме я нашел рабочий код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

unit VDMUnit;   interface   uses   Windows;   function IsOnCurrentDesktop(wnd: HWND): Boolean; function GetWindowDesktopId(Wnd: HWND): TGUID; procedure MoveWindowToDesktop(Wnd: HWND; const DesktopID: TGUID);   implementation   uses   ActiveX, Comobj;   const  IID_VDM: TGUID = '{A5CD92FF-29BE-454C-8D04-D82879FB3F1B}';  CLSID_VDM: TGUID ='{AA509086-5CA9-4C25-8F95-589D3C07B48A}';   type   IVirtualDesktopManager = interface(IUnknown)     ['{A5CD92FF-29BE-454C-8D04-D82879FB3F1B}']     function IsWindowOnCurrentVirtualDesktop(Wnd: HWND; out IsTrue: BOOL): HResult; stdcall;     function GetWindowDesktopId(Wnd: HWND; out DesktopID: TGUID): HResult; stdcall;     function MoveWindowToDesktop(Wnd: HWND; const DesktopID: TGUID): HResult; stdcall;   end;   function GetVDM: IVirtualDesktopManager; begin   Result := nil;   OleCheck(CoCreateInstance(CLSID_VDM, nil, CLSCTX_INPROC_SERVER, IVirtualDesktopManager, Result)); end;   function IsOnCurrentDesktop(wnd: HWND): Boolean; var   value: BOOL; begin   OleCheck(GetVDM.IsWindowOnCurrentVirtualDesktop(Wnd, value));   Result := value; end;   function GetWindowDesktopId(Wnd: HWND): TGUID; being   OleCheck(GetVDM.GetWindowDesktopId(Wnd, Result)); end;   procedure MoveWindowToDesktop(Wnd: HWND; const DesktopID: TGUID); begin   OleCheck(GetVDM.MoveWindowToDesktop(Wnd, DesktopID)); end;   end.

Там всего три функции IsOnCurrentDesktop(wnd: HWND): Boolean; эта чтобы проверить хэндл окна находится ли он на текущем рабочем столе, GetWindowDesktopId(Wnd: HWND): TGUID; эта возращает TGUID рабочего стола хендл окна которого хотим проверить, и этой MoveWindowToDesktop(Wnd: HWND; const DesktopID: TGUID) можно отправить наше окно на нужный рабочий стол.
А как программно перейти к нужному рабочему? Вот я получил TGUID рабочего стола на котором находится моя программа, пользователь сидит на первом рабочем столе и что нужно выполнить чтобы произошел переход к рабочему столу где находится моя программа? Читал что нужный рабочий стол автоматически активируется если передать фокус программе, но уже перепробовал разные функции для передачи фокуса программе, единственно

Код:

1	SetForegroundWindow(application.MainFormHandle);

дает признаки, иконка программы начинает мигать на панели задач, когда по ней кликнешь то сразу выполняется переход на тот рабочий стол, но хотелось бы это все программно, VirtualBox умеет переходить к нужному рабочему столу где работает его виртуальная машина как он так замутил, или хитрым способом программно клацает горячую клавишу CTRL+WIN+стрелка влево/вправо для перехода на нужный рабочий стол, но для этого нужно знать тогда текущую позицию рабочего стола и отсчитывать кол-во нажатий до позицию нужного рабочего стола.

[dr. F.I.N.]

Попробуй через другой интерфейс GitHub
(SwitchDesktop)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

MIDL_INTERFACE("f31574d6-b682-4cdc-bd56-1827860abec6") IVirtualDesktopManagerInternal : public IUnknown { public:     virtual HRESULT STDMETHODCALLTYPE GetCount(         UINT *pCount) = 0;       virtual HRESULT STDMETHODCALLTYPE MoveViewToDesktop(         IApplicationView *pView,         IVirtualDesktop *pDesktop) = 0;       // Since build 10240     virtual HRESULT STDMETHODCALLTYPE CanViewMoveDesktops(         IApplicationView *pView,         int *pfCanViewMoveDesktops) = 0;       virtual HRESULT STDMETHODCALLTYPE GetCurrentDesktop(         IVirtualDesktop** desktop) = 0;       virtual HRESULT STDMETHODCALLTYPE GetDesktops(         IObjectArray **ppDesktops) = 0;       virtual HRESULT STDMETHODCALLTYPE GetAdjacentDesktop(         IVirtualDesktop *pDesktopReference,         AdjacentDesktop uDirection,         IVirtualDesktop **ppAdjacentDesktop) = 0;       virtual HRESULT STDMETHODCALLTYPE SwitchDesktop(         IVirtualDesktop *pDesktop) = 0;       virtual HRESULT STDMETHODCALLTYPE CreateDesktopW(         IVirtualDesktop **ppNewDesktop) = 0;       virtual HRESULT STDMETHODCALLTYPE RemoveDesktop(         IVirtualDesktop *pRemove,         IVirtualDesktop *pFallbackDesktop) = 0;       // Since build 10240     virtual HRESULT STDMETHODCALLTYPE FindDesktop(         GUID *desktopId,         IVirtualDesktop **ppDesktop) = 0; };   // aa509086-5ca9-4c25-8f95-589d3c07b48a ? MIDL_INTERFACE("a5cd92ff-29be-454c-8d04-d82879fb3f1b") IVirtualDesktopManager : public IUnknown { public:     virtual HRESULT STDMETHODCALLTYPE IsWindowOnCurrentVirtualDesktop(         /* [in] */ __RPC__in HWND topLevelWindow,         /* [out] */ __RPC__out BOOL *onCurrentDesktop) = 0;       virtual HRESULT STDMETHODCALLTYPE GetWindowDesktopId(         /* [in] */ __RPC__in HWND topLevelWindow,         /* [out] */ __RPC__out GUID *desktopId) = 0;       virtual HRESULT STDMETHODCALLTYPE MoveWindowToDesktop(         /* [in] */ __RPC__in HWND topLevelWindow,         /* [in] */ __RPC__in REFGUID desktopId) = 0; };

[TidusX]

О благодарю, осталось вспомнить навыки программирования по си))) чтоб перевести его на делфи, а то меня хоть и учили в институте по нему кодить, но мне больше нравится синтаксис делфи, он более проще и понятней и о си уже как 5 лет не вспоминаю)

[TidusX]

Спасибо всем отписавшимся, провозился пол дня так и не получилось перевести на делфийский, там оказалось не всё так просто, поэтому для себя нашел другое решение, а именно готовая библиотека VirtualDesktopAccessor.dll в которой реализизованы эти функции, подключил к своему приложению и вызываю нужные процедуры. Кому нужно пользуйтесь
https://github.com/Ciantic/VirtualDesktopAccessor

[lmikle]

Дык это IDL.
Перевод по аналогии с тем, который ты уже нашел.
Ну или можно попробовать импортировать чеерз Import ActiveX меню, если сможешь найти этот интерфейс в списке. Только при импорте просто создавай файл, не надо генерировать компонент для палитры.

[TidusX]

Попробую, спасибо.

[dr. F.I.N.]

В принципе не особо сложного было перевести. Однако пои познания в С настолько скудны, что я не смог перевести в Delphi

Код:

1 2	virtual HRESULT STDMETHODCALLTYPE GetDesktops( IObjectArray **ppDesktops) = 0;

Не могу допетрить как извратиться с **ppDesktop (указатель на указатель).
Так что если спецы подскажут, буду премного благодарен.

А так, вот функция выводит количество виртуальных десктопов. Остается только перевести остальные ф-ции и задача решена.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

unit uVDMI;   interface   uses   Windows, ActiveX, Comobj;   const   CLSID_ImmersiveShell: TGUID = '{C2F03A33-21F5-47FA-B4BB-156362A2F239}';   CLSID_VDMI: TGUID = '{C5E0CDCA-7B6E-41B2-9FC4-D93975CC467B}';                                                 // 10130                                  // 10240                                  // 14393   IID_IVDMI_ARRAY: array [0..2] of TGUID = ('{EF9F1A6C-D3CC-4358-B712-F84B635BEBE7}', '{AF8DA486-95BB-4460-B3B7-6E7A6B2962B5}', '{F31574D6-B682-4CDC-BD56-1827860ABEC6}');   type   IVirtualDesktopManagerInternal = interface(IUnknown) //    ['{F31574D6-B682-4CDC-BD56-1827860ABEC6}']     function GetCount(Count: PUINT): HRESULT; stdcall;     function notimpl1(): HRESULT; stdcall;     function notimpl2(): HRESULT; stdcall;     function notimpl3(): HRESULT; stdcall;     function notimpl4(): HRESULT; stdcall;     function notimpl5(): HRESULT; stdcall;     function notimpl6(): HRESULT; stdcall;     function notimpl7(): HRESULT; stdcall;     function notimpl8(): HRESULT; stdcall;     function notimpl9(): HRESULT; stdcall;   end;   function GetDesktopCount: Cardinal;   implementation   function GetDesktopCount: Cardinal; var   shell: IServiceProvider;   VDMI: IVirtualDesktopManagerInternal;   i: Integer; begin   Result := 0;   if Succeeded(CoCreateInstance(CLSID_ImmersiveShell, nil, CLSCTX_LOCAL_SERVER, IServiceProvider, shell)) then   begin     for i := Low(IID_IVDMI_ARRAY) to High(IID_IVDMI_ARRAY) do       if Succeeded(shell.QueryService(CLSID_VDMI, IID_IVDMI_ARRAY[i], VDMI)) then       begin         VDMI.GetCount(@Result);         VDMI._Release;         Break;       end;     shell._Release;   end; end;   end.

[TidusX]

Браво! Проверил всё правильно показывает кол-во столов, ну да остальные функции до ума довести осталось и на этом форуме появится раньше дельфийский такой модуль) а если попробовать обойтись пока без **ppDesktop? Чтобы функцию замутить SwitchDesktop нужно написать интерфейс IVirtualDesktop, и создать структуру IApplicationView, там указатель на указатель не нужно делать.

[dr. F.I.N.]

Столкнулся с еще одно проблемой. В зависимости от сборки винды IID_IVDMI может иметь три разных значения. Переделал для стабильной работы, функцию укоротил (попробую отредактировать предыдущее сообщение).

Что касается остального, то с интерфейсом IApplicationView не все так однозначно. По нему описания практически нету. Да и проще найти GUID экрана на котором программа и сравнить с активным, после чего переключить при необходимости.

[dr. F.I.N.]

Вопрос решен. Постараюсь завтра выложить готовый модуль. Может кому и пригодится.