求一段delphi代码转C#代码，急用，可人民币支付，谢谢

急用。联系QQ：8775262，谢谢。

需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);


文件：UShare.pas

Delphi(Pascal) code:


unit UShare;

interface

uses Windows, Messages;

const
cMapFileName = 'HookSG_SharedData';

const
CM_MSGWNDCREATED = WM_USER + 1000;
CM_QUERYROW = WM_USER + 1001;
CM_QUERYCOL = WM_USER + 1002;
CM_HOOKCELL = WM_USER + 1003;

type
PShareData = ^TShareData;
TShareData = record
hkMsg: HHook;
HostPID: DWORD;
HostWnd: HWND;
DestWnd: HWND;
MsgWnd: HWND;
Text: array[0..1024] of Char;
end;

var
hMapFile: THandle;
P: PShareData;

implementation

end.





文件：UHook.pas:

Delphi(Pascal) code:

unit UHook;

interface

uses Windows, Messages, SysUtils, Controls, Grids;

procedure InstallHook(MainWnd, DestWnd: HWND); stdcall;
procedure UninstallHook; stdcall;
function GetHookedCell: PChar; stdcall;

implementation

uses UShare;

var
ControlAtom: TAtom;
ControlAtomString: string;
RM_GetObjectInstance: DWORD; // registered window message

function FindControl(Handle: HWnd): TWinControl;
var
OwningProcess: DWORD;
begin