ソス@ソスソスIEソスソスNソスソスソスソスソスソスソスソスソスフでゑソスソスソス
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソスhソスdソスソスCreateProcess ソスナ起ソスソスソスソスソスト終ソスソスソスワでプソスソスソスOソスソスソスソスソスソスソス‾ソスソスヤにゑソスソスソスソスソスソスフでゑソスソスソスソスA
ソスソスソスソスワで、ソスhソスdソスフイソスソスソスXソスgソス[ソスソスソスソスソス
C:¥Program files¥Internet Explorer ソスナ定かソスニ思ソスソスソストゑソスソスソスソスフでゑソスソスソスソスA
ソスoソスkソスtソスrソスIソスソスソスソスソスソスソストゑソスソスソスmソスsソスツ具ソスソスソスソスニどゑソスソスソスCソスソスソスXソスgソス[ソスソスソス謔ェソス痰、ソス謔、ソスナ、
ソスナ抵ソスpソスXソスナは起ソスソスソスソスソスワゑソスソスソスナゑソスソスソスソスB
ソスhソスdソスソスソスCソスソスソスXソスgソス[ソスソスソスソスソス黷スソスpソスXソスソスソスかソスソスニゑソスソスソスソスフでゑソスソスソスソスA
ソスヌゑソスソスソスソスソスト抵ソスソスラゑソスホよいソスフでゑソスソス蛯、ソスソスソスB
htmlソスノ関連ソスtソスソスソスソスソストゑソスソスソスAソスvソスソスソスフパソスXソスソスmソス閧スソスソスソスフでゑソスソスソスソスソスA
FindExecutableソス調べてみては如ソスソスソスナゑソスソス蛯、ソスソスソスH
ソスヨ連ソスtソスソスソスソスソスソストゑソスソスソスAソスvソスソスソスフパソスXソスソス謫セソスoソスソスソスワゑソスソスB
ソスソスソスWソスXソスgソスソスソス調べてはどゑソスソスナゑソスソス蛯、ソスソスソスB
ソスソスソス黷セソスニ固抵ソスナゑソスソスソスソスソスソスニ思ソスソスソスワゑソスソスソスソスB
ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスソスWソスXソスgソスソスソスソスソス轤セソスニ、ソスAソスhソス‾ソスjソスナソスソスOソスCソスソスソスソスソスネゑソスソスニ取得ソスoソスソスソスネゑソスソス謔、ソスソスソスソスソスソスソスフゑソス
FindExecutable ソスソスソスソスソスソストみまゑソスソスソスソスB
ソスソスソスソスソスソスソスノは趣ソスソスンのフソス@ソスCソスソスソスソスwソス閧オソストゑソスソスネゑソスソスニゑソスソスソスソスネゑソスソス謔、ソスナゑソスソスソスソスB
ソスソスソスフ都ソスxソス_ソス‾ソス[ソスソスHTMLソスソスソスソスソスト擾ソスソスソスソスAソスニゑソスソスソスソスソスソスソスソスノゑソスソス謔、ソスソスソスニ思ソスソスソストゑソスソスワゑソスソスB
ソスソスソスソスソス_ソス‾ソス[ソスソスHTMLソスソスソス轤クソスノ済まゑソスソスソスソスソス@ソスソスソスソスソスソスホ具ソスソスソスソストゑソスソスソスソスソスソスソスソスB
> ソスソスソスソスソス_ソス‾ソス[ソスソスHTMLソスソスソス轤クソスノ済まゑソスソスソスソスソス@ソスソスソスソスソスソスホ具ソスソスソスソストゑソスソスソスソスソスソスソスソスB
ソスソスソスソスソスニ、ソスtソス@ソスCソスソスソスソスソスソスネゑソスソスソス URL ソスナゑソスソスソスソスソスじゑソスネゑソスソスフ。ソスソスソスニゑソスソスソス
http://www.google.co.jp/
ソスニゑソスソスB
ソスソスソスWソスXソスgソスソスソスネゑソスAReadOnlyソスノゑソスソスト読み搾ソスソス゚ばでゑソスソスソスヘゑソスソスB
ソス齒奇ソスノゑソスソスワゑソスソスソスソスAHKEY_CURRENTUSERソスネゑソスホ。
ソスソスソスソスソスソスソスソスソストゑソスソスソスフにゑソスソスソスソスワゑソスソスソスB
ソスソスソスソスソスソスソスソスソスソスソスソストゑソスソスソスソスソスソスソスソスB
ソス`ソスoソスフイソスソスソスXソスgソス[ソスソスソスpソスXソス謫セソスフゑソスソス゚に以会ソスソスフ関撰ソスソスソス成ソスソスソスソスソスフでゑソスソスソスソスA
ソスソスソス黷ェソスAソスhソス‾ソスjソスソスソスソスソスソスソスソスソスワゑソスソスソスB
ソスヌゑソスソスノ趣ソスソスソスソスソスソスAソスソスソス[ソスhソスIソスソスソスソスソス[ソスノゑソスソスソスホゑソスソスソスソスナゑソスソス蛯、ソスソスソスB
ソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソス
function IsInstall(ArGExeFileName: String): String;
const
{ソスvソスソスソスOソスソスソスソスソスフイソスソスソスXソスgソス[ソスソスソスソスtソスHソスソスソス_ソスソスソスフソスソスW}
AppKey='SOFTWARE¥Microsoft¥Windows¥CurrentVersion¥App Paths¥';
var
Reg : TRegistry;
RegDat: String;
begin
Result := '';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(AppKey + ArGExeFileName, False) then
begin
try
RegDat := Reg.ReadString(''); //ソスWソスソスソスLソス[
if '' = RegDat then Result := ''
else Result := PFGetPath(RegDat); //ソスCソスソスソスXソスgソス[ソスソスソスソスtソスHソスソスソス_ソス{ソスdソスwソスdソスソス
except
Result := '';
end;
end;
finally
Reg.Free;
end;
end;
ソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソス
ソスソスソスソスニ、FindExecutable ソスヘ以会ソスソスフ関撰ソスソスノゑソスソスソスソスフでゑソスソスソス
ソスソスソスソスソスソスソスノUソスqソスkソスソスwソス閧キソスソスgソスソスソスソスソスソスソスヤ茨ソスソスソストゑソスソスソスホゑソスソスソスソスソスソストゑソスソスソスソスソスソスソスソスB
ソスソスソスンゑソスShellExecute ソスソスURLソスソスnソスソスソスソスIEソスソスソスNソスソスソスソスソスワゑソスソスB
ソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソス
function GetIeFullPath():String;
var
DummyFile : string;
FileHandle: Integer;
AppName : array [0..MAX_PATH] of Char;
begin
result := '';
try
//DummyFile := 'dummy.html';
//FileHandle := FileCreate( DummyFile );
//FileClose(FileHandle);
DummyFile := 'http://www.google.co.jp/';
FindExecutable(PChar(DummyFile),
PChar(ExtractFilePath(Application.Exename)),
AppName);
finally
if true = FileExists( DummyFile ) then
DeleteFile( pchar( DummyFile ) );
result := AppName;
end;
end;
ソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソス
ソスソスソスWソスXソスgソスソスソスフ包ソスソスナゑソスソスソスソスA
OpenKeyソスナなゑソスソスAOpenKeyReadOnlyソスソスgソスpソスソスソスワゑソスソスB
ソスソスソスソスソスネどにつゑソスソストはヘソスソスソスvソスソスQソスニゑソスソストゑソスソスソスソスソスソスソスソスB
> ソスソスソスソスソスソスソスノUソスqソスkソスソスwソス閧キソスソスgソスソスソスソスソスソスソスヤ茨ソスソスソストゑソスソスソスホゑソスソスソスソスソスソストゑソスソスソスソスソスソスソスソスB
> ソスソスソスンゑソスShellExecute ソスソスURLソスソスnソスソスソスソスIEソスソスソスNソスソスソスソスソスワゑソスソスB
ShellExecute() ソスニ奇ソスソス痰「ソスソスソストゑソスソスソスワゑソスソスソスソスBソス¥ソスソスソスあゑソスワゑソスソスソスB
>ソスhソスdソスソスCreateProcess ソスナ起ソスソスソスソスソスト終ソスソスソスワでプソスソスソスOソスソスソスソスソスソスソス‾ソスソスヤにゑソスソスソスソスソスソスフでゑソスソスソスソスA
ソスソスソスソスナゑソスソスソスソスAFindExecutable() ソスソス CreateProcess() ソスAWaitForSingleObject() ソスソス
ソスgソスソスソストゑソスソスワゑソスソスソスソスソスソストまゑソスソスソスソスH ソスたソスソスソスフとゑソスソスソスナは、ソスソスソスソスソスソスソスネどでは撰ソスソスソスソスソスソスワゑソスソスソス
IE ソスナゑソスlソスbソスgソスXソスPソス[ソスvソスナゑソスAURL ソスソスJソスソスソスソスソスニはでゑソスソスワゑソスソスソスソスAソスIソスソスソスメゑソスソスソスソスナゑソスソスワゑソスソスソス
ソスナゑソスソスソスソスBShellExecuteEx() ソスソスgソスソスソスソスソスRソス[ソスhソスソスソスソスソスソスソスワゑソスソスB
uses
ShellAPI;
function ExecAndWaitQuit(FileOrURL:string):Boolean;
var
sei:TShellExecuteInfo;
begin
FillChar(sei,SizeOf(TShellExecuteInfo),#0);
sei.cbSize := SizeOf(TShellExecuteInfo);
sei.fMask := SEE_MASK_NOCLOSEPROCESS;
sei.Wnd := Form1.Handle;
sei.lpVerb := 'open';
sei.lpFile := PChar(FileOrURL);
sei.lpDirectory := PChar(ExtractFilePath(Application.Exename));
sei.nShow := SW_SHOWNORMAL;
result := ShellExecuteEx(@sei);
if result then begin
while WaitForSingleObject(sei.hProcess,100) = WAIT_TIMEOUT do
Application.ProcessMessages;
CloseHandle(sei.hProcess);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if ExecAndWaitQuit('C:¥040414.txt') then
ShowMessage('Close Notepad');ソス@// ソスIソスソスソスメゑソスソスナゑソスソスソス
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if ExecAndWaitQuit('http://www.google.co.jp/') then
ShowMessage('Close IE');ソス@ソス@ソス@//ソス@ソスIソスソスソスメゑソスソスナゑソスソスネゑソスソスソスソスソスソスI
end;
ソスツ具ソスソスFソス@Window98SE Delphi5Up1
> URL ソスソスJソスソスソスソスソスニはでゑソスソスワゑソスソスソスソスAソスIソスソスソスメゑソスソスソスソスナゑソスソスワゑソスソスソスナゑソスソスソスソスB
msdn ソスソス ShellExecuteEx() ソスフとゑソスソスソスノ擾ソスソスソスソストゑソスソスソスワゑソスソスソスソスBソスソスソスノゑソスソスソスソスツゑソスソスソス IE ソスソス
ソスソスソスソスソス繧ェソスソスソストゑソスソスソス鼾ソスヘ、ソスソスソス轤スソスノ指ソスソスソス URL ソスソスJソスソスソスソスソスニはでゑソスソスワゑソスソスソスソスAソスvソスソスソスZソスXソスソス
ソスソスソスソスソスネので、hProcess ソスノは設定さソスソスネゑソスソス謔、ソスナゑソスソスBソスナ擾ソスソスフ茨ソスツの趣ソスソスヘ托ソスソスvソスソスソスソスソスナゑソスソスヒ。
ソスンなゑソスソスワゑソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスBソスソスソスソスソスソスソスソスソスソスソスホゑソスナゑソスソスソスソスソスソスソスソスB
> URL ソスソスJソスソスソスソスソスニはでゑソスソスワゑソスソスソスソスAソスIソスソスソスメゑソスソスソスソスナゑソスソスワゑソスソスソスナゑソスソスソスソスB
ソスソスソスソスソスQソスlソスノゑソスソスソスソストゑソスソスソスソスソスソスTソスCソスg
http://www.eva.hi-ho.ne.jp/taketani/delphi/system.shtml
ソスソスソスソスソスソスNo.0002ソスフ包ソスソス@ソスナゑソスソスニ、ソスソスソスソスIEソスソスソスソスソスOソスノ起ソスソスソスソスソストゑソスソストゑソス
ソスIソスソスソスワで待ゑソスソストゑソスソスソスソス謔、ソスナゑソスソスB
ソスソスソス黷ゥソスソスソスヌゑソスソスソスソスソスしソスソスソスB
> ソスソスソスソスIEソスソスソスソスソスOソスノ起ソスソスソスソスソストゑソスソストゑソスIソスソスソスワで待ゑソスソストゑソスソスソスソス謔、ソスナゑソスソスB
ソスヘゑソスソスAソスソスソスソスソスソスナゑソス CreateProcess() ソスソスgソスソスソスソスソス鼾ソスヘ厄ソス閧ソスソスワゑソスソスソスB
FindExecutable() ソスノは、ソスoソスOソスソスソスソスソスソスフで、ソスソスソスワゑソスgソスソスソスソスソスソスソスネゑソスソスAソスソス
ソスネゑソスラゑソスソスネ単ソスノとゑソスソスソスソスソスソスニゑソス ShellExecuteEx() ソスソスgソスソスソスソスソスソスナゑソスソスソスソスヌね。
http://www.geocities.co.jp/Playtown-Spade/4058/code/memo/memo4.html
ソスソスソスWソスXソスgソスソスソスソスソスソスソスソスソストゑソスソスト、CreateProcess() ソスソスソストのゑソスソスソスヤゑソスソスソスソス謔、ソスナゑソスソスヒ。