kvaka
asked on
getting some interesting information...
I have some system hooks.
Str:=TCBTCreateWnd(Pointer (lParam)^) .lpcs.lpsz Name; {whith this i get windows name}
1. How i can get filename of application which create this windows ???
2. what other information i can get about running programs and windowses ???
HOOKS :
HCBT_ACTIVATE:
begin
Wnd := wParam;
GetWindowText(Wnd, windtext, 255);
{} SaveData(dates,times,'ACTI VE',windte xt,'no',In tToStr(Wnd ));
end;
HCBT_CREATEWND:
begin
Str:=TCBTCreateWnd(Pointer (lParam)^) .lpcs.lpsz Name;
if Str='' then exit;
if TCBTCreateWnd(Pointer(lPar am)^).lpcs .hwndParen t<>0 then exit;
Wnd := wParam;
GetWindowText(Wnd, windtext, 255);
GetWindowModuleFileName(Wn d, windp, 255);;
{} SaveData(dates,times,'OPEN ',windtext ,Str,IntTo Str(Wnd));
end;
HCBT_DESTROYWND:
begin
Str:='';
Wnd := wParam;
if Wnd<>0 then
GetWindowText(Wnd, windtext, 255);
str:=windtext;
if windtext='' then exit;
if Str='' then exit;
{} SaveData(dates,times,'CLOS E',windtex t,'no',Int ToStr(Wnd) );
end;
end;
end;
Str:=TCBTCreateWnd(Pointer
1. How i can get filename of application which create this windows ???
2. what other information i can get about running programs and windowses ???
HOOKS :
HCBT_ACTIVATE:
begin
Wnd := wParam;
GetWindowText(Wnd, windtext, 255);
{} SaveData(dates,times,'ACTI
end;
HCBT_CREATEWND:
begin
Str:=TCBTCreateWnd(Pointer
if Str='' then exit;
if TCBTCreateWnd(Pointer(lPar
Wnd := wParam;
GetWindowText(Wnd, windtext, 255);
GetWindowModuleFileName(Wn
{} SaveData(dates,times,'OPEN
end;
HCBT_DESTROYWND:
begin
Str:='';
Wnd := wParam;
if Wnd<>0 then
GetWindowText(Wnd, windtext, 255);
str:=windtext;
if windtext='' then exit;
if Str='' then exit;
{} SaveData(dates,times,'CLOS
end;
end;
end;
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
The link should have been sufficient to answer this question. I'd appreciate the points but don't feel strongly about it.
I will leave the following recommendation for this question in the Cleanup topic area:
Delete - No Refund
Any objections should be posted here in the next 4 days. After that time, the question will be closed.
Karamja (Alan)
EE Cleanup Volunteer