UpdateLayeredWindow

[bitsetter]

Getestet habe ich es nicht, aber so ähnlich müsste es gehen:

Delphi-Quellcode:

function UpdateLayeredWindow(wnd: HWND; hdcDst: HDC; pptDst: PPoint; psiz: PSize; hdcSrc: HDC; pptSrc: PPoint; crKey: TColor; pblend: PBlendFunction; dwFlags: DWORD): BOOL;
var
  hUser32: THandle;
  UpdateLayeredWnd: function(wnd: HWND; hdcDst: HDC; pptDst: PPoint; psiz: PSize; hdcSrc: HDC; pptSrc: PPoint; crKey: TColor; pblend: PBlendFunction; dwFlags: DWORD): BOOL; stdcall;
begin
  Result := false;
  hUser32 := LoadLibrary('user32.dll');
  if hUser32 <> 0 then
    try
      UpdateLayeredWnd:= GetProcAddress(hUser32, 'UpdateLayeredWindow');
      if Assigned(UpdateLayeredWnd) then
        result:= UpdateLayeredWnd(wnd, hdcDst, pptDst, psiz, hdcSrc, pptSrc, crKey, pblend, dwFlags);
    finally
      FreeLibrary(hUser32);
    end;
end;