Databases
StackOverflow2013
Postsdbo
POdelphi Hook SetClipboardData from user32.dll
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POdelphi Hook SetClipboardData from user32.dll
    primarykey
    data
    text
    <p>i've this component that i want to use it in a DLL to achieve a system-wide hook :</p> <pre><code>unit ClipboardHook; interface uses Windows, SysUtils, Classes, ExtCtrls; type TFOnOpenClipboard = procedure(Sender:TObject; hWndNewOwner:HWND; var opContinue:Boolean) of object; TFOnSetClipboardData = procedure(Sender:TObject; hWndNewOwner:HWND; uFormat:DWord; hMem:THandle; var opContinue:Boolean) of object; type TClipboardHook = class(TComponent) private { Private declarations } FOnOpenClipboard:TFOnOpenClipboard; FOnSetClipboardData:TFOnSetClipboardData; protected { Protected declarations } public { Public declarations } constructor Create(AOwner: TComponent); override; destructor Destroy; override; //------------------------------------------------ published { Published declarations } property OnOpenClipboard:TFOnOpenClipboard read FOnOpenClipboard write FOnOpenClipboard; property OnSetClipboardData:TFOnSetClipboardData read FOnSetClipboardData write FOnSetClipboardData; end; implementation type TcOpen=function(hWndNewOwner:HWND):Bool; stdcall; TscData=function(uFormat:DWord; hMem:Thandle):THandle; stdcall; TOP_H = packed record Push:Byte; Address:DWord; Ret:Byte; end; var OC_Addr,SCD_Addr:Pointer; OP:DWord; cOpen,rcOpen,scData,rscData:TOP_H; WPM:DWord; sComponent:TObject; {***************************Start:TClipboardHook***************************} function Open_Clipboard(hWndNewOwner:HWND):Bool; stdcall; var c: Boolean; begin c:=true; if Assigned(TClipboardHook(sComponent).FOnOpenClipboard) then TClipboardHook(sComponent).FOnOpenClipboard(sComponent,hWndNewOwner,c); if c then begin WriteProcessMemory(OP,OC_Addr,@rcOpen,SizeOf(rcOpen),WPM); Result:=TcOpen(OC_Addr)(hWndNewOwner); WriteProcessMemory(OP,OC_Addr,@cOpen,SizeOf(cOpen),WPM); end else Result:=false; end; function Set_ClipboardData(uFormat:DWord; hMem:THandle):THandle; stdcall; var c: Boolean; Win: DWord; begin c := true; Win := GetOpenClipboardWindow(); if (Win &lt;&gt; 0) and (Assigned(TClipboardHook(sComponent).FOnSetClipboardData)) then TClipboardHook(sComponent).FOnSetClipboardData(sComponent,Win,uFormat,hMem,c); if c then begin WriteProcessMemory(OP,SCD_Addr,@rscData,SizeOf(rscData),WPM); Result:=TscData(SCD_Addr)(uFormat,hMem); WriteProcessMemory(OP,SCD_Addr,@scData,SizeOf(scData),WPM); end else Result:=0; end; {****************************End:TClipboardHook****************************} {##############################################################################} constructor TClipboardHook.Create(AOwner:TComponent); var Dll: DWord; begin inherited Create(Aowner); if (csDesigning in ComponentState) then exit; sComponent:=Self; DLL := LoadLibrary('user32.dll'); if DLL &lt;&gt; 0 then begin OC_Addr := GetProcAddress(DLL,'OpenClipboard'); SCD_Addr := GetProcAddress(DLL,'SetClipboardData'); if (OC_Addr &lt;&gt; nil) or (SCD_Addr &lt;&gt; nil) then begin OP:=OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID); if OP &lt;&gt; 0 then begin if OC_Addr &lt;&gt; nil then begin cOpen.Push := $68; cOpen.Address := DWord(@Open_Clipboard); cOpen.Ret := $C3; ReadProcessMemory(OP, OC_Addr, @rcOpen, SizeOf(rcOpen), WPM); WriteProcessMemory(OP, OC_Addr, @cOpen, SizeOf(cOpen), WPM); end; if SCD_Addr &lt;&gt; nil then begin scData.Push := $68; scData.Address := DWord(@Set_ClipboardData); scData.Ret := $C3; ReadProcessMemory(OP, SCD_Addr, @rscData, SizeOf(rscData), WPM); WriteProcessMemory(OP, SCD_Addr, @scData, SizeOf(scData), WPM); end; end; end; FreeLibrary(Dll); end; end; destructor TClipboardHook.destroy; begin if (OC_Addr &lt;&gt; nil) then WriteProcessMemory(OP, OC_Addr, @rcOpen, SizeOf(rcOpen), WPM); if OP &lt;&gt; 0 then CloseHandle(OP); inherited destroy; end; {##############################################################################} end. </code></pre> <p>can someone help me in putting all these stuffs into a DLL ( without the Component ) ,i mean only the functions . </p> <p>many thanks</p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USKen White
    1. USrandydom
    plurals
    1. This table or related slice is empty.
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POdelphi Hook SetClipboardData from user32.dll
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POdelphi Hook SetClipboardData from user32.dll
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POdelphi Hook SetClipboardData from user32.dll
      1. This table or related slice is empty.
      1. VTDownMod
    1. COYou don't want the component in the dll?
      singulars
      1. POdelphi Hook SetClipboardData from user32.dll
      1. USSertac Akyuz
    2. COWithout the component, the code won't do anything. Also, I was under the impression that there were system APIs that allowed you to hook the clipboard without having to use dreadful hacks like this.
      singulars
      1. POdelphi Hook SetClipboardData from user32.dll
      1. USDavid Heffernan
    3. CO@David , can you please tell me those system APIs ?
      singulars
      1. POdelphi Hook SetClipboardData from user32.dll
      1. USrandydom
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload