|
program ProcessAPI;
..\.
uses Windows, madCodeHook;
var WinExecNextHook : function (cmdLine: pchar; showCmd: dword) : dword; stdcall;
function WinExecHookProc(cmdLine: pchar; showCmd: dword) : dword; stdcall;
begin
if MessageBox(0, cmdLine, 'Execute?', MB_YESNO or MB_ICONQUESTION) = IDYES then
result := WinExecNextHook(cmdLine, showCmd)
else
result := ERROR_ACCESS_DENIED;
end;
begin
HookAPI('kernel32.dll', 'WinExec', @WinExecHookProc, @WinExecNextHook);
WinExec('notepad.exe', SW_SHOWNORMAL);
UnhookAPI(@WinExecNextHook);
end.
|
|