Несколько простых вопросов по WinAPI

[WERT-007]

Делаю небольшую панель для быстрого запуска приложений, и у меня возникло несколько простых (наверное) вопросов.

1) Как уменьшить рабочую область экрана? (чтобы там была только моя панель), как это делается, например в стандартной Экранной Лупе.
2) Как выдирать пути из ярлыков?
3) Как выдрать иконку из экзешника?
4) Как отследить вход/выход в ждущий/спящий режим?
5) Как изменять положение значков на Рабочем Столе?

Я предватительно все это искал в Поиске, но ничего толкового не нашел

[GSerg]

Не верю, что ты не нашёл 1, 2 и 3 вопросы.
Они есть в большом количестве копий.

[A.A.Z.]

1) Ищи по SPI_SETWORKAREA
2) В популярных вопросах тема hCORe про создание ярлыков
3) FindResource(Ex), LoadResource
4) ХЗ =)
5) Рабочий стол - это SysListView32, попробуй начать с этого

[HotKitten]

и всё-таки как отправить комп в спящий режим???
не нашел в поиске ничего полезного, нашел только про ждущий

[hCORe]

WERT-007
2) Способов - множество.
3) Наипримитивнейший пример - вот здесь http://bbs.vbstreets.ru/viewtopic.php?t=8011
Автор метода, кстати, не я. Народное творчество
4) Спящий режим (hibernate) сродни вырубу компьютера, поэтому (наверное) можно ловить Form_QueryUnload с параметром UnloadMode = vbAppWindows и выполнять при этом необходимые действия...

Можно еще написать драйвер режима ядра. Но не на VB. Это будет очень долго, особенно если ты не имеешь ни малейшего представления о написании драйверов. Зато, если напишешь, стопроцентно будет все перехватывать. Только зачем вообще нужен этот перехват?

A.A.Z
2) Я не писал про создание ярлыков. Никогда. Это GSerg с успехом реализовывал интерфейс IShellLink без использования typelib'а. Я так не умею

[Amed]

Похоже, вопрос 1 не про рабочую область, а про BitBlt. И StretchBlt.

[HotKitten]

виноват, не внимательно искал

Код: Выделить всё

Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvent As Long) As Long

'ждущий
SetSuspendState 0, 0, 0

'спящий
SetSuspendState 1, 0, 0