ソス@ソスソスソスソスソスソス¥ソスtソスgソスNソスソスソスソスソスノ擾ソスソスソスソスソスソスソスノは?
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソスソスソスソス¥ソスtソスgソスiソスソスソスソスソスソスソスソスdソスソスネど)ソスソスNソスソスソスソスソスソスソスニゑソスソスノ、ソスNソスソスソスソスソスソスAソスvソスソスソスPソス[ソスVソスソスソスソスソスソスソス閧スソスソスソスニ思ソスソスソストゑソスソスワゑソスソスB
ソスナゑソスソスソスソスAソスソスソスラてみゑソスソスソスAソスナゑソスソス驍アソスニはゑソスソスソスソスソスニ思ソスソスソスフでゑソスソスソスソスソスソスソスソスフ力では趣ソスソスソスソスナゑソスソスネゑソスソスソスソスソスソスソスソス゚に、ソスFソスlソスフゑソスソスヘゑソスリりたソスソスソスニ思ソスソスソストゑソスソスソスワゑソスソスB
1.ソスソスソスソス¥ソスtソスgソスiソスソスソスソスソスソスソスソスdソスソスネど)ソスソスNソスソスソスソスソスソスソスニゑソスソスノ、ソスNソスソスソスソスソスソスAソスvソスソスソスPソス[ソスVソスソスソスソスソスフ搾ソスソスソス
2.ソスソスソスソス¥ソスtソスgソスソスソスNソスソスソスソスソスソスソスニゑソスソスノ、ソスソスソス髀茨ソスソスソスソスsソスソス
ソスソスソスフどゑソスソス轤ゥソスフゑソスソスソスソスソスソスかソスソスソスソスソスソスソスソスソスソスソスソスソス痰「ソスワゑソスソスソスソスソスAソスソスソスソスソスソスソスフほど宜ソスソスソスソスソスソスソス閧「ソスソスソスワゑソス
>1.ソスソスソスソス¥ソスtソスgソスiソスソスソスソスソスソスソスソスdソスソスネど)ソスソスNソスソスソスソスソスソスソスニゑソスソスノ、ソスNソスソスソスソスソスソス
ソスソスソスソスヘ托ソスソスソスソスソスソスソスソスソスソスニ思ソスソスソスワゑソスソスBソスtソスノ趣ソスソスソスソスナ搾ソスソスソスソスソスAソスvソスソスソスPソス[ソスVソスソスソスソスソスソスソスソス"ソスソスソスソス¥ソスtソスg"ソスソスNソスソスソスソスソス驍アソスニは可能ソスナゑソスソスソスソスB
>2.ソスソスソスソス¥ソスtソスgソスソスソスNソスソスソスソスソスソスソスニゑソスソスノ、ソスソスソス髀茨ソスソスソスソスsソスソス
ソスソスソスソスソスソスソスWindowsソスソスソスNソスソスソスソスソスソスソスニゑソス(ソスワゑソスソスヘゑソスソスソスネ鯉ソス)ソスノ趣ソスソスソスソスナ搾ソスソスソスソスソスAソスvソスソスソスPソス[ソスVソスソスソスソスソスソス駐ソスソスソスソスソストゑソスソスソスソスA"ソスソスソスソス¥ソスtソスg"ソスソスソスNソスソスソスソスソスソスソスソスソスヌゑソスソスソスソスソスFindWindowAPIソスネどで抵ソスソスラゑソス"ソスソスソス髀茨ソスソス"ソスソスsソスソスソスホでゑソスソスソスニ思ソスソスソスワゑソスソスB
ソスNソスソスソスvソスソスソスZソスXソス挙ゑソス
ソス^ソスCソス}ソス[ソスナ監趣ソスソスソスソスツづゑソスソスソス
ソスソスソスニゑソスソスソス
C:¥WINNT¥system32¥notepad.exe
ソスソスソスソスソスンゑソスソス驍アソスニを調べゑソス
ソスソスソスト包ソスソス@ソスソス
Windowソス挙ゑソス^ソスCソス}ソス[ソスナ監趣ソスソスソスソスソス
notepadソスソスWindowソスソスソスソスソスンゑソスソストゑソスソス驍アソスニゑソス`ソスFソスbソスNソスソスソスソス
ソスニゑソスソスソスソスソスソス@ソスソスソスソスソス謔、ソスネゑソスソスソスソスソスソスワゑソスソスソスソスB
ソスソスソスソスソスソスソスナゑソスソス蛯、ソスB
ソスネ単ソスノ考ソスソスソスソスニ、ソスソスソスフようソスネ形ソスヘゑソスソスソスソスソスソスナゑソスソス蛯、ソスソスソスB
ソスソスソスソスソスソスソス立ゑソスソス繧ーソスソスニ、ソスソスxソスソスソスソスソスdソスソスソスソスソスソスソス繧ェソスソスB
//ソス@usesソス゚ゑソス ShellAPI ソスソスヌ会ソス
ソスマ撰ソス
hNote : HWND; {ソスnソスソスソスhソスソス}
CalcFlg : Boolean; {ソスソスxソスソスソスソスソスdソスソス立ゑソスソス繧ーソス驍スソスソス}
const
// ソスdソスソスiソスソスソスフ環具ソスソスフ場合)
FN = 'C:¥WINNT¥system32¥Calc.exe';
//-----------------------------------------------
// ソスNソスソスソスソスソスフ擾ソスソスソス
//-----------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
{ソスソスソスソスソスソスソスnソスソスソスhソスソスソスソス謫セ}
hNote := FindWindow('Notepad',nil);
// ソスソスソスナに起ソスソスソスソスソストゑソスソスソスソスソス
if hNote <> 0
then
begin
ShellExecute(Handle,'open',PChar(FN),nil,nil,SW_SHOW);
CalcFlg := true;
end
// ソスNソスソスソスソスソストゑソスソスネゑソスソスソスソスソスソスソス
else
CalcFlg := False;
end;
// ソスNソスソスソスソスソスEソスrソスソスソスIソスソスソスソスソスフチソスFソスbソスN
procedure TForm1.Timer_CheckTimer(Sender: TObject);
begin
{ソスソスソスソスソスソスソスフハソスソスソスhソスソスソスソス謫セ}
hNote := FindWindow('Notepad',nil);
if hNote <> 0
then
begin
if CalcFlg = False
then
begin
ShellExecute(Handle,'open',PChar(FN),nil,nil,SW_SHOW);
CalcFlg := True;
end;
end
else
CalcFlg := False;
end;
ソスNソスソスソスソスソスソスソスヌゑソスソスソスソスナ、ソス^ソスCソス}ソス[ソスフイソスソスソス^ソス[ソスoソスソスソスソスマゑソスソスソスソスソスA
ソスソスソスフプソスソスソスOソスソスソスソスソスソスソス¥ソスソスソスノゑソスソスソスソスソスAソスソスdソスNソスソスソスsソスツにゑソスソストゑソスヌゑソスソスソスソスソス
ソスソスソスソスワゑソスソスソスB
ソスソスソスソスソスソスソスソスソスソスソスソスソスナゑソスソス蛯、ソスソスソスH
ソスソスソスソスソスJソスソスソスソスが難ソスソスLソスXソスVソスソスソストゑソスI
http://eid.jp/2163
ソスsソスoソスノゑソスソスフソスソスソスソスNソスソスHソスソスソストゑソスソスワゑソスソスソスソスc
ソスPソスネゑソスLソスソスソスナゑソス
ソスソスソスソスソス轤ゥソスソスソスラてみまゑソスソスソスソスソスソスAソス謔ュソスソスソスソスソスソスワゑソスソスソスナゑソスソスソスソスB
ソスvソスヘ「ソス¥ソスtソスgソスソスNソスソスソスソスmソスソスvソスナゑソスソスソスヒ?
ソスソスソスソスソスソスAソス^ソスCソス}ソス[ソスナ擾ソスノチソスFソスbソスNソスソスソスソスフゑソスソスナゑソスソスソスソスAソス^ソスXソスNソス}ソスlソス[ソスWソスソスソスヘタソスCソス}ソス[ソスナプソスソスソスZソスXソスソスト趣ソスソスソスソストゑソスソスソス謔、ソスナゑソスソスソスソスAソスfソスXソスNソスgソスbソスvソスiソス^ソスXソスNソスoソス[ソスjソスネんかはゑソスソスソスニスソス}ソス[ソスgソスネ包ソスソス@ソスナ趣ソスソスソスソスソスソストゑソスソスソス謔、ソスナゑソスソスB
ソスヌゑソスソスソスソスソストゑソスソスナゑソスソス蛯、ソスヒ…
ソス^ソスXソスNソスoソス[ソスナは、IShellExecuteHookソスCソスソスソス^ソス[ソスtソスFソス[ソスXソスナフソスbソスNソスソスソストゑソスソスソスフでは?
IShellExecuteHookソスソスソスソスソスソスナゑソスソスソスホでゑソスソスソスソスソスソスナゑソスソスヒ。
COMソスソスoソス^ソスソスソスト、
HKEY_LOCAL_MACHINE¥SOFTWARE¥Microsoft¥Windows¥CurrentVersion¥Explorer¥ShellExecuteHooks
ソスソスCLSIDソスソスヌ会ソスソスソスソストゑソスソスソスソスホ難ソスソスソスソスニ思ソスソスソスワゑソスソスB
>>ソス^ソスXソスNソスoソス[ソスナは、IShellExecuteHookソスCソスソスソス^ソス[ソスtソスFソス[ソスXソスナフソスbソスNソスソスソストゑソスソスソスフでは?
ソスソスソスwソスEソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
IShellExecuteHookソスソスソスソスノ抵ソスソスラてゑソスソスソスソスソスソスソス
SetWindowsHookExソスソスWH_SHELLソスソスtソスbソスNソスソスソストゑソスAソスvソスソスソスPソス[ソスVソスソスソスソスソスフ起ソスソスソスソスmソス驍アソスニゑソスソスナゑソスソス驍アソスニゑソスソスソスソスソスソスソスAソスソスソスソスソストみゑソスソスニゑソスソスソスAソスvソスソスソスフ起ソスソスソスソスソスソスハでゑソスソスソスソスソスソスナゑソスソスB
//----------------------------------------------------------------
// ソスAソスvソスソスソスPソス[ソスVソスソスソスソスソスフ起ソスソスソスソス@ソスm
//----------------------------------------------------------------
library HookShell;
uses
SysUtils, Windows, Messages, Controls;
{$R *.RES}
var
hInst : Integer; //ソスCソスソスソスXソス^ソスソスソスXソスnソスソスソスhソスソス
hHook : Integer; //ソスtソスbソスNソスvソスソスソスVソス[ソスWソスソスソスフハソスソスソスhソスソス
function JournalRecordProc(nCode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
begin
result:=0;
if nCode < 0 then begin
result := CallNextHookEx(hHook,nCode,wParam,lParam)
end else begin
beep(1000,10); //ソスmソスF
CallNextHookEx(hHook,nCode,wParam,lParam);
end;
end;
procedure SetHook;stdcall;
begin
//ソスtソスbソスNソスJソスn
hHook := SetWindowsHookEx(WH_SHELL,@JournalRecordProc,hInstance,0);
end;
procedure EndHook;stdcall;
begin
UnhookWindowsHookEx(hHook);
end;
exports
SetHook,
EndHook;
begin
hInst := hInstance;
end.
ソスソスソスソスソスソス
ソスソスソスソスヘ「ソスソスソスソス¥ソスtソスgソスソスNソスソスソスソスソスソスソスニゑソスソスノ、ソスNソスソスソスソスソスソスAソスvソスソスソスPソス[ソスVソスソスソスソスソスv
ソスナゑソスソスヒ。
ソスソスソスDLLソスヘ「ソスSソストのソソスtソスgソスフ起ソスソスソスソスト趣ソスソスvソスソスソスソスソスフでゑソスソスB
ソスソスソスソスフ回等となゑソスソスフはにゑソスソスフ様ソスフゑソスソスソスソスソスソスソスソスソスフでゑソスソスB
ソスPソスノ趣ソスソスフ具ソスソスソスソスナ抵ソスソスラてゑソスソスワゑソスソスソスソスソスフでスソス‾ソス}ソスZソスソスソスナゑソスソスB
ソスFソスlソスAソスソスソスソスソスフゑソスソスモ鯉ソスソスソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスB
ソスソスヘゑソスソスヤ厄ソスソスソスネのはタソスCソス}ソス[ソスネどにゑソスソスソス闔橸ソスヤゑソスソスニの監趣ソスソスネのでゑソスソス蛯、ソスヒ。
ソス皷橸ソスAソスソスソスフ包ソスソス@ソスナはゑソスソスソスソスニ予ソスソスハゑソスフ難ソスソスソスソスmソスFソスソスソス驍アソスニゑソスソスoソスソスソスワゑソスソスソスソスB
ソスソスソスソスソスAソスソスソスソスソスソスソスソスソスソスソスフ意鯉ソスソスソスoソスソスソストゑソスソスソスソスソスソスソスソスソスソスフで、ソスQソスlソスノゑソスソスト托ソスソスフ包ソスソス@ソスノゑソス`ソスソスソスソスソスソスソスWソスソスソストみまゑソスソスヒ。ソスソスソスソスソスiソスDソスフ茨ソスソスソスソスソスソス@ソスネゑソスソスソスソスソスワゑソスソスフで^ソスOソスG
ソスワゑソスソスソスソスソスソスナゑソスソスワゑソスソスソスソスソス告ゑソスソスソスソストゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスFソスlソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスAソス皷橸ソスソスソスソスノて会ソスソスソスニゑソスソスソスソスソスソスニで。
ソス`ソスFソスbソスNソス‾ソスXソスナゑソスソスBソス¥ソスソスソスあゑソスワゑソスソス>ソス