急！！！！dll全局变量问题(50分)

zzb1984 · 2004-03-09

在dll我设了个全局变量path 我在dll的函数a中改变了path的值     path := GetCurrentDir; 但当我在函数b中的 if length(path) <= 0 then   path := 'null'; path居然为'null' 难道在dll中无法在不同函数中共享全局变量吗 全部代码如下 unit HKProc; interface uses   Windows, Messages, Dialogs, SysUtils, TLHelp32; var   hNextHookProc: HHook;   procSaveExit: Pointer;   userName, path : string;   lpBuffer :array[1..64] of Char;   nSize :Cardinal;   myfile : textfile; function shellproc(iCode: Integer;   wParam: WPARAM;   lParam: LPARAM): LRESULT; stdcall; export; function EnableHotKeyHook: BOOL; export; function DisableHotKeyHook: BOOL; export; procedure HotKeyHookExit; far; implementation function shellproc(iCode: Integer;   wParam: WPARAM;   lParam: LPARAM): LRESULT; stdcall; export; var   szTitle:string;     //当前窗口名称   temp : TDateTime;   processPath:string;   Handler : THandle; begin   Result := 0;   If iCode < 0 Then   begin     Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);     Exit;   end   else if iCode=HSHELL_WINDOWCREATED then   begin     SetLength(szTitle, 255);     SetLength(szTitle, GetWindowText(wParam,pchar(szTitle),254)); {    nSize := 255;     GetUserName(@lpBuffer, nSize);     userName := Copy(lpBuffer, 1, nSize-1);     path := GetCurrentDir;     path:=path + '/' + userName + DateToStr(now()) +'.txt';     AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');     append(myfile);     Writeln(myfile, Path );     CloseFile(myfile); }     if length(path) <= 0 then       path := 'null';     AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');     append(myfile);     Writeln(myfile, Path );     CloseFile(myfile);   end; end; function EnableHotKeyHook: BOOL; export; begin     nSize := 255;     GetUserName(@lpBuffer, nSize);     userName := Copy(lpBuffer, 1, nSize-1);     path := GetCurrentDir;     path:=path + '/' + userName + DateToStr(now()) +'.txt';     AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');     append(myfile);     Writeln(myfile, Path );     CloseFile(myfile);   Result := False;   if hNextHookProc <> 0 then Exit;   // 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下   // 来, 免得 HOOK 呼叫链结断掉   hNextHookProc := SetWindowsHookEx(WH_SHELL,     shellproc,     HInstance,     0);   Result := hNextHookProc <> 0; end; function DisableHotKeyHook: BOOL; export; begin   if hNextHookProc <> 0 then   begin     UnhookWindowshookEx(hNextHookProc);  // 解除 Keyboard Hook     hNextHookProc := 0;     MessageBeep(0);     MessageBeep(0);   end;   Result := hNextHookProc = 0;  end; procedure HotKeyHookExit; begin   // 如果忘了解除 HOOK, 自动代理解除的动作   if hNextHookProc <> 0 then DisableHotKeyHook;   ExitProc := procSaveExit; end; end.

wisenow · 2004-03-09

当然是null了 用内存映像吧

zzb1984 · 2004-03-09

如何内存映像 请赐教

fu_qi_ming · 2004-03-09

我想应该没问题吧。来测测先。

zzb1984 · 2004-03-09

我是想把用钩子记录下的窗口标题栏名称保存到dll所在的文件夹 一开始，我在shellproc用path获得dll所在的文件夹的路径，path := GetCurrentDir; 结果当我打开一个网页时，     path：= H:/program files/internet explorer/IEXPLORE.EXE 为此我到EnableHotKeyHook:中，全局变量path := GetCurrentDir; 的确获得dll所在的文件夹的路径,但是通过全局变量path传不进shellproc 在shellproc中path 未改变，仍为空串

zzb1984 · 2004-03-09

只要在shellproc用path获得dll所在的文件夹的路径 用什么方法都行

fu_qi_ming · 2004-03-09

为什么会这样，什么原因， 按道理他和 hNextHookProc 一样，为什么 hNextHookProc可以，他不可以 难道是String类型的问题。

fu_qi_ming · 2004-03-09

我知道了，你的Path是在EnableHotKeyHook中初始化的，而这个函数是在你的 启动Hook的进程中执行的，也就是说其他的进程中全为空。 我想把Path初始化放入Hook的回调函数中应该就好了。

fu_qi_ming · 2004-03-09

修改后代码，加了个全局变量IsExistPath，检测Path是否初始化过。 修改了Hook的回调函数： function shellproc(iCode: Integer;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall; export; var  szTitle:string;     //当前窗口名称  temp : TDateTime;  processPath:string;  Handler : THandle; begin  Result := 0;  If iCode < 0 Then  begin    Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);    Exit;  end  else if iCode=HSHELL_WINDOWCREATED   then  begin    SetLength(szTitle, 255);    SetLength(szTitle, GetWindowText(wParam,pchar(szTitle),254));    if not IsExistpath then    begin     nSize := 255;     GetUserName(@lpBuffer, nSize);     userName := Copy(lpBuffer, 1, nSize-1);     path := GetCurrentDir;     path:=path + '/' + userName + DateToStr(now()) +'.txt';     isExistpath:=true;    end;    if length(path) <= 0 then      path := 'null';    AssignFile(myfile, 'E:/pp.txt');    append(myfile);    Writeln(myfile, Path );    Writeln(myfile, szTitle );    CloseFile(myfile);  end; end;

zzb1984 · 2004-03-09

也许 我试了一下内存映射，好像还是不行   hMapFile : THandle;   MapFilePointer: pointer; function EnableHotKeyHook: BOOL; export; var   hMapFile : THandle; begin     nSize := 255;     GetUserName(@lpBuffer, nSize);     userName := Copy(lpBuffer, 1, nSize-1);     path := GetCurrentDir;     path:=path + '/' + userName + DateToStr(now()) +'.txt';  hMapFile := CreateFileMapping (    $FFFFFFFF, // 特殊内存映射句柄    nil, page_ReadWrite, 0,10000,    'DdhDemoMappedFile'); // 文件名  if hMapFile <> 0 then    MapFilePointer := MapViewOfFile (      hMapFile, // 上面映象文件的句柄      File_Map_All_Access,      0, 0, 0) // 访问整个映象文件  else    ShowMessage ('hMapFile = 0');  if MapFilePointer = nil then    ShowMessage ('MapFilePointer = nil');  StrCopy ( PChar (MapFilePointer),  PChar (path) );//把内容写入共享内存  temp := PChar (MapFilePointer);//从共享内存读出内容 if length(temp) <= 0 then   temp := 'null';     AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');     append(myfile);     Writeln(myfile, temp );     CloseFile(myfile);       Result := False;   if hNextHookProc <> 0 then Exit;   // 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下   // 来, 免得 HOOK 呼叫链结断掉   hNextHookProc := SetWindowsHookEx(WH_SHELL,     shellproc,     HInstance,     0);   Result := hNextHookProc <> 0; end; 在shellproc中  path := PChar (MapFilePointer);//从共享内存读出内容 在shellproc中path 未改变，仍为空串

fu_qi_ming · 2004-03-09

看了你上面的说明，我知道了。你要存放的目录， 你只有用内存影射吧。

zzb1984 · 2004-03-09

我在shellproc用path获得dll所在的文件夹的路径，path := GetCurrentDir; 结果当我打开一个网页时，     path：= H:/program files/internet explorer/IEXPLORE.EXE 得不到dll所在的文件夹的路径

zzb1984 · 2004-03-09

我试了一下内存映射，好像还是不行

魏启明 · 2004-03-09

你的难道 是对的 Dll是无法使用全局变量， 只有用内存映射文件的方法 也可以，把全局变量最为一个参数传入，这样可以在调用者这边维护她

wisenow · 2004-03-09

偶写的自己用的使用内存映像的几个函数，给你了 // --------------------------------WriteShareData------------------------------- // 名    称：WriteShareData // 功    能：写内存映像文件，保存一个整形数据 // 参    数： //          ShareName         内存映像文件的唯一标示 //          Data              要写入的数据 //          DataSize          数据的大小 // 返回值：内存映像的句柄，调用者需要保存，在它不再使用后要CloseHandle // 日    期：2004.02.05 // 修    改：????.??.?? function WriteShareData(ShareName: pchar; Data: pointer; DataSize: Cardinal): THandle; export; // --------------------------------ReadShareData-------------------------------- // 名    称：ReadShareData // 功    能：写内存映像文件，保存一个整形数据 // 参    数： //          ShareName         内存映像文件的唯一标示，必须是已经存在的 //          Data              读出的数据缓冲区 //          DataSize          要读出数据缓冲的大小，调用者必须知道 // 返回值：无 // 日    期：2004.02.05 // 修    改：????.??.?? procedure ReadShareData(ShareName: pchar; Data: pointer; DataSize: Cardinal); export; // --------------------------------WriteShareInteger---------------------------- // 名    称：WriteShareInteger // 功    能：写内存映像文件，保存一个整形数据 // 参    数： //          ShareName         内存映像文件的唯一标示 //          h                 要写入的数据 // 返回值：内存映像的句柄，调用者需要保存，在它不再使用后要CloseHandle // 日    期：2004.02.05 // 修    改：????.??.?? function WriteShareInteger(ShareName: pchar; h: integer): THandle; export; // --------------------------------ReadShareInteger----------------------------- // 名    称：ReadShareInteger // 功    能：读内存映像文件中的整形数据 // 参    数： //          ShareName         内存映像文件的唯一标示，必须是已经存在的 // 返回值：内存映像文件中的数据 // 日    期：2004.02.05 // 修    改：????.??.?? function ReadShareInteger(ShareName: pchar): integer; export; function WriteShareData(ShareName: pchar; Data: pointer; DataSize: Cardinal): THandle; var   tmpData: pointer; begin   result := CreateFileMapping(DWord($FFFFFFFF), nil, PAGE_READWRITE, 0,     DataSize, ShareName);   tmpData := MapViewofFile(result, FILE_MAP_WRITE, 0, 0, 0);   move(Data^, tmpData^, DataSize);   UnMapViewofFile(tmpData); end; procedure ReadShareData(ShareName: pchar; Data: pointer; DataSize: Cardinal); var   hMap: THandle;   tmpData: pointer; begin   hMap := CreateFileMapping(DWord($FFFFFFFF), nil, PAGE_READWRITE,     0, DataSize, ShareName);   try     tmpData := MapViewofFile(hMap, FILE_MAP_READ, 0, 0, 0);     move(tmpData^, Data^, DataSize);     UnMapViewofFile(tmpData);   finally     CloseHandle(hMap);   end; end; function ReadShareInteger(ShareName: pchar): integer; begin   ReadShareData(ShareName, @result, sizeof(integer)); end; function WriteShareInteger(ShareName: pchar; h: integer): THandle; begin   result := WriteShareData(ShareName, @h, sizeof(integer)); end;

zzb1984 · 2004-03-09

hMapFile : THandle;  MapFilePointer: pointer; function EnableHotKeyHook: BOOL; export; var  hMapFile : THandle; begin    nSize := 255;    GetUserName(@lpBuffer, nSize);    userName := Copy(lpBuffer, 1, nSize-1);    path := GetCurrentDir;    path:=path + '/' + userName + DateToStr(now()) +'.txt';     hMapFile := WriteShareData('monitor', @path, 255);     ReadShareData('monitor', @temp, 255);     if length(temp) <= 0 then        temp := 'null';    AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');    append(myfile);    Writeln(myfile, temp );    CloseFile(myfile);      Result := False;  if hNextHookProc <> 0 then Exit;  // 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下  // 来, 免得 HOOK 呼叫链结断掉  hNextHookProc := SetWindowsHookEx(WH_SHELL,    shellproc,    HInstance,    0);  Result := hNextHookProc <> 0; end; 在shellproc中     ReadShareData('monitor', @path, 255); 改完后运行 主函数执行到EnableHotKeyHook提示"access violation at ....."

fu_qi_ming · 2004-03-09

你写的内存映射,对吗? 应该是先Open,失败然后Create 你在启动Hook中Create了,记下变量在回调函数中没用,因为是不同进程. 所以映射进每个进程时要,OpenFileMapping.初始化变量MapFilePointer 所以,你应该在Dll的的Entry函数中初始化MapFilePointer(即OpenFileMapping) 或者回调函数中. 也就是说每个进程要OpenFileMapping一次.

zzb1984 · 2004-03-09

>>fu_qi_ming   按你的方法终于成功了 多谢！

zzb1984 · 2004-03-09

多人接受答案了。

急！！！！dll全局变量问题(50分)

zzb1984

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

fu_qi_ming

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

fu_qi_ming

Unregistered / Unconfirmed

fu_qi_ming

Unregistered / Unconfirmed

fu_qi_ming

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

fu_qi_ming

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

魏启明

Unregistered / Unconfirmed

wisenow

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

fu_qi_ming

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

Similar threads