Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
14th
Июл
Как нарисовать что-то на рабочем столе?
Posted by Chas under Пост-обзор
Подскажите, можно ли нарисовать что-то на рабочем столе?
Причем, без ручной перерисовки всего стола.
Скажем, нарисовать линию произвольную.
Somebody:
Вот есть упрощённый вариант, не обрабатывает изменение размера рабочего стола и т. п. Наверное, нужны админские права, отключенный антивирус и версия винды не любая. Но тут основная цель была не рисовать на рабочем столе, а заинжектиться в explorer.exe
uses
Windows;
var
hWindow: HWND;
hProcess, hThread: THandle;
processId, threadId: Cardinal;
pFileName: PChar;
n: Cardinal;
pLoadLibrary, pFreeLibrary: Pointer;
hKernel32, hDrawerDll: HMODULE;
fileName: array [0..MAX_PATH] of Char;
begin
SearchPath(nil, 'drawer.dll', nil, sizeof(fileName), @fileName, PPChar(nil)^);
hWindow := FindWindow('ProgMan', nil);
GetWindowThreadProcessId(hWindow, processId);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, false, processId);
pFileName := VirtualAllocEx(hProcess, nil, sizeof(fileName),
MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
WriteProcessMemory(hProcess, pFileName, @fileName, sizeof(fileName), n);
hKernel32 := GetModuleHandle('kernel32.dll');
pLoadLibrary := GetProcAddress(hKernel32, 'LoadLibraryA');
pFreeLibrary := GetProcAddress(hKernel32, 'FreeLibrary');
hThread := CreateRemoteThread(hProcess, nil, 0, pLoadLibrary,
pFileName, 0, threadId);
WaitForSingleObject(hThread, INFINITE);
GetExitCodeThread(hThread, hDrawerDll);
CloseHandle(hThread);
VirtualFreeEx(hProcess, pFileName, 0, MEM_RELEASE);
MessageBox(0, 'Press OK to unload', '...', 0);
hThread := CreateRemoteThread(hProcess, nil, 0, pFreeLibrary,
Pointer(hDrawerDll), 0, threadId);
WaitForSingleObject(hThread, INFINITE);
GetExitCodeThread(hThread, hDrawerDll);
CloseHandle(hThread);
CloseHandle(hProcess);
end.
dll
library Drawer;
uses
Windows, Messages;
var
hWindow: HWND;
processId: DWORD;
hWndDc, hBitmapDc: HDC;
hBitmap: HGDIOBJ;
hPen, hBrush1, hBrush2: HGDIOBJ;
wndRect: TRect;
wndWidth, wndHeight, wndCX, wndCY, size: LongInt;
prevWindowProc: Pointer;
function WindowProc(hWnd: HWND; Msg: UINT; wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall;
var
hOldBrush: HGDIOBJ;
begin
Result := 0;
case Msg of
WM_ERASEBKGND:
begin
CallWindowProc(prevWindowProc, hWnd, Msg, wParam, lParam);
BitBlt(wParam, 0, 0, wndWidth - 1, wndHeight - 1, hBitmapDc, 0, 0, SRCAND);
Result := 1;
end;
else
Result := CallWindowProc(prevWindowProc, hWnd, Msg, wParam, lParam);
end;
end;
procedure DllEntryPoint(Reason: Integer);
var
ProcessId: Cardinal;
begin
GetWindowThreadProcessID(hWindow, ProcessId);
if ProcessID <> GetCurrentProcessID() then
exit;
if Reason = DLL_PROCESS_DETACH then
begin
SetWindowLong(hWindow, GWL_WNDPROC, Integer(prevWindowProc));
DeleteDc(hBitmapDc);
DeleteObject(hBitmap);
DeleteObject(hPen);
DeleteObject(hBrush1);
DeleteObject(hBrush2);
end;
end;
begin
DisableThreadLibraryCalls(hInstance);
hWindow := FindWindow('Progman', nil);
hWindow := GetWindow(hWindow, GW_CHILD);
GetWindowThreadProcessID(hWindow, ProcessId);
if ProcessID <> GetCurrentProcessID() then
exit;
GetWindowRect(hWindow, wndRect);
wndWidth := wndRect.Right - wndRect.Left + 1;
wndHeight := wndRect.Bottom - wndRect.Top + 1;
wndCX := wndWidth div 2;
wndCY := wndHeight div 2;
if wndWidth > wndHeight then
size := wndHeight div 4
else
size := wndWidth div 4;
hWndDc := GetDC(hWindow);
hBitmap := CreateCompatibleBitmap(hWndDc, wndWidth, wndHeight);
hBitmapDc := CreateCompatibleDC(hWndDc);
ReleaseDc(hWindow, hWndDc);
hPen := GetStockObject(BLACK_PEN);
hBrush1 := CreateHatchBrush(HS_CROSS, RGB(0, 0, 0));
hBrush2 := GetStockObject(WHITE_BRUSH);
SelectObject(hBitmapDc, hBitmap);
SelectObject(hBitmapDc, hPen);
SelectObject(hBitmapDc, hBrush1);
PatBlt(hBitmapDc, 0, 0, wndWidth - 1, wndHeight - 1, PATCOPY);
SelectObject(hBitmapDc, hBrush2);
Ellipse(hBitmapDc, wndCX - size, wndCY - size, wndCX + size, wndCY + size);
prevWindowProc := Pointer(
SetWindowLong(hWindow, GWL_WNDPROC, Integer(@WindowProc))
);
DllProc := DllEntryPoint;
end.
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)