- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试使用 Magnification api 获取创建的新桌面的屏幕截图(CreateDesktop
api + 执行 explorer.exe 到新桌面),如 this 教程中所示。我成功地将 C++ 代码从教程移植到 Delphi,并且从 Win Vista ~ Win 10 执行并启用 Aero Theme 时,两个示例(C++ 和 Delphi)都工作正常。 p>
这个问题的麻烦在于,如果我创建一个新桌面(克隆原始桌面)并执行此屏幕捕获示例,MagSetImageScalingCallback
会失败。
有人知道 MagSetImageScalingCallback 的可能解决方案也适用于创建的新桌面吗?
提前感谢您的帮助。
type
TForm1 = class(TForm)
CAPTURE: TButton;
SaveFileDialog1: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure CAPTUREClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
Magnification;
{$R *.dfm}
function HostWndProc(hWindow: HWND; Msg: UINT; wParam: wParam; lParam: lParam)
: LRESULT; stdcall;
begin
Result := DefWindowProc(hWindow, Msg, wParam, lParam);
end;
var
MyBMP: TBitmap;
abitmap: HBitmap;
desktoprect: TRect;
hWndMag: HWND;
CallbackDone: Boolean = False;
function MagImageScalingCallback(HWND: HWND; srcdata: Pointer;
srcheader: MAGIMAGEHEADER; destdata: Pointer; destheader: MAGIMAGEHEADER;
unclipped: TRect; clipped: TRect; dirty: HRGN): BOOL; stdcall;
var
lpbmih: TBitmapInfoHeader;
lpbmi: TBitmapInfo;
aDC: HDC;
begin
aDC := GetWindowDC(HWND);
Fillchar(lpbmih, sizeof(lpbmih), 0);
lpbmih.biSize := sizeof(lpbmih);
// (-) Otherwise the image is upside down.
lpbmih.biHeight := -srcheader.height { -GetDeviceCaps(aDC, VERTRES) };
lpbmih.biWidth := srcheader.width { GetDeviceCaps(aDC, HORZRES) };
lpbmih.biSizeImage := srcheader.cbSize;
lpbmih.biPlanes := 1;
lpbmih.biBitCount := 32;
lpbmih.biCompression := BI_RGB;
Fillchar(lpbmi, sizeof(lpbmi), 0);
lpbmi.bmiHeader.biSize := sizeof(lpbmi.bmiHeader);
// (-) Otherwise the image is upside down.
lpbmi.bmiHeader.biHeight := -srcheader.height { -GetDeviceCaps(aDC, VERTRES) };
lpbmi.bmiHeader.biWidth := srcheader.width { GetDeviceCaps(aDC, HORZRES) };
lpbmi.bmiHeader.biSizeImage := srcheader.cbSize;
lpbmi.bmiHeader.biPlanes := 1;
lpbmi.bmiHeader.biBitCount := 32;
lpbmi.bmiHeader.biCompression := BI_RGB;
MyBMP := TBitmap.Create;
abitmap := 0;
try
abitmap := CreateDIBitmap(aDC, lpbmih, CBM_INIT, srcdata, lpbmi,
DIB_RGB_COLORS);
MyBMP.handle := abitmap;
MyBMP.PixelFormat := pf32bit;
CallbackDone := True;
finally
DeleteDC(aDC);
end;
Result := True;
end;
procedure TForm1.CAPTUREClick(Sender: TObject);
var
filterList: THWNDArray;
sourceRect: TRect;
begin
filterList[0] := Form1.handle;
If (MagSetWindowFilterList(hWndMag, MW_FILTERMODE_EXCLUDE, 1,
@filterList[0])) Then
begin
sourceRect.left := 0;
sourceRect.top := 0;
sourceRect.right := desktoprect.width;
sourceRect.bottom := desktoprect.height;
CallbackDone := False;
If (MagSetWindowSource(hWndMag, sourceRect)) Then
Screen.Cursor := crHourGlass;
repeat
until CallbackDone;
Screen.Cursor := crDefault;
SaveFileDialog1.Title := 'Save Image File';
SaveFileDialog1.Filter :=
'JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif|Png Image|*.png';
SaveFileDialog1.DefaultExt := 'bmp';
SaveFileDialog1.FilterIndex := 2;
SaveFileDialog1.InitialDir := GetCurrentDir;
if SaveFileDialog1.Execute then
begin
MyBMP.SaveToFile(SaveFileDialog1.FileName);
MessageDlg('File saved: ' + SaveFileDialog1.FileName, mtInformation,
[mbOK], 0);
end
else
MessageDlg('Save file was cancelled', mtWarning, [mbOK], 0);
DeleteObject(abitmap);
MyBMP.Free;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (MagUninitialize) then
MessageDlg('Magnification api finished!', mtInformation, [mbOK], 0);
end;
procedure TForm1.FormCreate(Sender: TObject);
const
HOST_CLASSNAME = 'MagnifierHost';
var
wc: TWndClass;
hWndHost, desktop: HWND;
begin
hWndHost := 0;
wc.lpszClassName := HOST_CLASSNAME;
wc.lpfnWndProc := @HostWndProc;
wc.Style := 0;
wc.hInstance := 0;
wc.hIcon := 0;
wc.hCursor := 0;
wc.hbrBackground := 0;
wc.lpszMenuName := nil;
wc.cbClsExtra := 0;
wc.cbWndExtra := 0;
desktop := GetDesktopWindow;
GetWindowRect(desktop, desktoprect);
if (Winapi.Windows.RegisterClass(wc) <> 0) then
hWndHost := CreateWindowEx(WS_EX_TOPMOST Or WS_EX_LAYERED Or
WS_EX_TRANSPARENT, HOST_CLASSNAME, 'Host Window',
WS_POPUP Or WS_CLIPCHILDREN, 0, 0, desktoprect.width, desktoprect.height,
0, 0, hInstance, nil);
if (hWndHost <> 0) then
begin
SetWindowPos(hWndHost, 0, 0, 0, desktoprect.width, desktoprect.height,
SWP_HIDEWINDOW);
SetLayeredWindowAttributes(hWndHost, 0, 255, LWA_ALPHA);
end;
If (MagInitialize) Then
hWndMag := CreateWindowEx(0, WC_MAGNIFIER, 'MagnifierWindow',
WS_CHILD Or MS_SHOWMAGNIFIEDCURSOR Or WS_VISIBLE, 0, 0, desktoprect.width,
desktoprect.height, hWndHost, 0, 0, nil);
If (hWndMag = 0) Then
ShowMessage(SysErrorMessage(GetLastError));
if (MagSetImageScalingCallback(hWndMag, MagImageScalingCallback)) then
ShowMessage('MagSetImageScalingCallback registred!');
ShowMessage(SysErrorMessage(GetLastError));
left := (GetSystemMetrics(SM_CXSCREEN) - width) div 2;
top := (GetSystemMetrics(SM_CYSCREEN) - height) div 2;
end;
end.
放大倍率.pas
unit Magnification;
{$ALIGN ON}
{$MINENUMSIZE 4}
interface
uses
Windows;
const
// Magnifier Class Name
WC_MAGNIFIERA: AnsiString = 'Magnifier';
WC_MAGNIFIERW: WideString = 'Magnifier';
WC_MAGNIFIER = 'Magnifier';
// Magnifier Window Styles
MS_SHOWMAGNIFIEDCURSOR = $0001;
MS_CLIPAROUNDCURSOR = $0002;
MS_INVERTCOLORS = $0004;
// Filter Modes
MW_FILTERMODE_EXCLUDE = 0;
MW_FILTERMODE_INCLUDE = 1;
type
tagMAGTRANSFORM = record
v: array[1..3, 1..3] of Single;
end;
MAGTRANSFORM = tagMAGTRANSFORM;
TMagTransform = tagMAGTRANSFORM;
PMagTransform = ^TMagTransform;
tagMAGIMAGEHEADER = record
width: UINT;
height: UINT;
format: TGUID;
stride: UINT;
offset: UINT;
cbSize: UINT;
end;
MAGIMAGEHEADER = tagMAGIMAGEHEADER;
TMagImageHeader = tagMAGIMAGEHEADER;
PMagImageHeader = ^TMagImageHeader;
tagMAGCOLOREFFECT = record
transform: array[1..5, 1..5] of Single;
end;
MAGCOLOREFFECT = tagMAGCOLOREFFECT;
TMagColorEffect = tagMAGCOLOREFFECT;
PMagColorEffect = ^TMagColorEffect;
TMagImageScalingCallback = function (hwnd: HWND; srcdata: Pointer;
srcheader: MAGIMAGEHEADER; destdata: Pointer; destheader: MAGIMAGEHEADER;
unclipped: TRect; clipped: TRect; dirty: HRGN): BOOL; stdcall;
THWNDArray = array[0..0] of HWND;
PHWNDArray = ^THWNDArray;
// Public Functions
function MagInitialize(): BOOL; stdcall;
function MagUninitialize(): BOOL; stdcall;
function MagSetWindowSource(hwnd: HWND; rect: TRect): BOOL; stdcall;
function MagGetWindowSource(hwnd: HWND; var Rect: TRect): BOOL; stdcall;
function MagSetWindowTransform(hwnd: HWND; var Transform: TMagTransform): BOOL; stdcall;
function MagGetWindowTransform(hwnd: HWND; var Transform: TMagTransform): BOOL; stdcall;
function MagSetWindowFilterList(hwnd: HWND; dwFilterMode: DWORD;
count: Integer; pHWND: PHWNDArray): BOOL; stdcall;
function MagGetWindowFilterList(hwnd: HWND; var dwFilterMode: DWORD;
count: Integer; pHWND: PHWNDArray): Integer; stdcall;
function MagSetImageScalingCallback(hwnd: HWND;
MagImageScalingCallback: TMagImageScalingCallback): BOOL; stdcall;
// MagImageScalingCallback WINAPI MagGetImageScalingCallback(HWND hwnd );
function MagSetColorEffect(hwnd: HWND; var Effect: TMagColorEffect): BOOL; stdcall;
function MagGetColorEffect(hwnd: HWND; var Effect: TMagColorEffect): BOOL; stdcall;
implementation
const
MagnificationDll = 'Magnification.dll';
function MagInitialize; external MagnificationDll name 'MagInitialize';
function MagUninitialize; external MagnificationDll name 'MagUninitialize';
function MagSetWindowSource; external MagnificationDll name 'MagSetWindowSource';
function MagGetWindowSource; external MagnificationDll name 'MagGetWindowSource';
function MagSetWindowTransform; external MagnificationDll name 'MagSetWindowTransform';
function MagGetWindowTransform; external MagnificationDll name 'MagGetWindowTransform';
function MagSetWindowFilterList; external MagnificationDll name 'MagSetWindowFilterList';
function MagGetWindowFilterList; external MagnificationDll name 'MagGetWindowFilterList';
function MagSetImageScalingCallback; external MagnificationDll name 'MagSetImageScalingCallback';
function MagSetColorEffect; external MagnificationDll name 'MagSetColorEffect';
function MagGetColorEffect; external MagnificationDll name 'MagGetColorEffect';
end.
<小时/>
版本:
GetLastError()
returns 50 - ERROR_NOT_SUPPORTED - The request is not supported.
但这适用于原始桌面,我不明白。
最佳答案
已解决!
这适用于 Win 8/8.1 和 10,所有 x86 和 x64。
不适用于 Windows 版本 <8
关于delphi - 为什么MagSetImageScalingCallback函数在新桌面执行时失败?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50439121/
我想知道有没有可能做 new PrintWriter(new BufferedWriter(new PrintWriter(s.getOutputStream, true))) 在 Java 中,s
我正在尝试使用 ConcurrentHashMap 初始化 ConcurrentHashMap private final ConcurrentHashMap > myMulitiConcurrent
我只是想知道两个不同的新对象初始化器之间是否有任何区别,还是仅仅是语法糖。 因此: Dim _StreamReader as New Streamreader(mystream) 与以下内容不同: D
在 C++ 中,以下两种动态对象创建之间的确切区别是什么: A* pA = new A; A* pA = new A(); 我做了一些测试,但似乎在这两种情况下,都调用了默认构造函数,并且只调用了它。
我已经阅读了其他帖子,但它们没有解决我的问题。环境为VB 2008(2.0 Framework)下面的代码在 xslt.Load 行导致 XSLT 编译错误下面是错误的输出。我将 XSLT 作为字符串
我想知道为什么alert(new Boolean(false))打印 false 而不是打印对象,因为 new Boolean 应该返回对象。如果我使用 console.log(new Boolean
本文实例讲述了Python装饰器用法。分享给大家供大家参考,具体如下: 写装饰器 装饰器只不过是一种函数,接收被装饰的可调用对象作为它的唯一参数,然后返回一个可调用对象(就像前面的简单例子) 注
我可以编写 YAML header 来使用 knit 为 R Markdown 文件生成多种输出格式吗?我无法重现 the original question with this title 的答案中
我可以编写一个YAML标头以使用knitr为R Markdown文件生成多种输出格式吗?我无法重现the original question with this title答案中描述的功能。 这个降价
我正在使用vars package可视化脉冲响应。示例: library(vars) Canada % names ir % `$`(irf) %>% `[[`(variables[e])) %>%
我有一个容器类,它有一个通用参数,该参数被限制到某个基类。提供给泛型的类型是基类约束的子类。子类使用方法隐藏(新)来更改基类方法的行为(不,我不能将其设为虚拟,因为它不是我的代码)。我的问题是"new
Java 在提示! cannot find symbol symbol : constructor Bar() location: class Bar JPanel panel =
在我的应用程序中,一个新的 Activity 从触摸按钮(而不是点击)开始,而且我没有抬起手指并希望在新的 Activity 中跟踪触摸的 Action 。第二个 Activity 中的触摸监听器不响
已关闭。此问题旨在寻求有关书籍、工具、软件库等的建议。不符合Stack Overflow guidelines .它目前不接受答案。 我们不允许提问寻求书籍、工具、软件库等的推荐。您可以编辑问题,
和我的last question ,我的程序无法检测到一个短语并将其与第一行以外的任何行匹配。但是,我已经解决并回答了。但现在我需要一个新的 def函数,它删除某个(给定 refName )联系人及其
这个问题在这里已经有了答案: Horizontal list items (7 个答案) 关闭 9 年前。
我想创建一个新的 float 类型,大小为 128 位,指数为 4 字节(32 位),小数为 12 字节(96 位),我该怎么做输入 C++,我将能够在其中进行输入、输出、+、-、*、/操作。 [我正
我在放置引用计数指针的实例时遇到问题 类到我的数组类中。使用调试器,似乎永远不会调用构造函数(这会扰乱引用计数并导致行中出现段错误)! 我的 push_back 函数是: void push_back
我在我们的代码库中发现了经典的新建/删除不匹配错误,如下所示: char *foo = new char[10]; // do something delete foo; // instead of
A *a = new A(); 这是创建一个指针还是一个对象? 我是一个 c++ 初学者,所以我想了解这个区别。 最佳答案 两者:您创建了一个新的 A 实例(一个对象),并创建了一个指向它的名为 a
我是一名优秀的程序员,十分优秀!