|
ｿｽ@ｿｽｿｽINIｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾟなゑｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽnｿｽｿｽｿｽnｿｽｿｽ 2004/10/21(ｿｽｿｽ) 08:27:34
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽﾊのアｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ起ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、
ｿｽﾄ度ｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽｿｽINIｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾟまゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
var
ini: TIniFIle;
hCalc: HWND;
begin
ini := TIniFile.Create('C:¥Program Files¥sample_app¥sample.ini');
try
//ｿｽｿｽｿｽﾉ起ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽｿｽiniｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ini.WriteString('TEST', 'Val', 'test_ste');
except
ShowMessage('Error');
end;
ini.Free;
//ｿｽｿｽｿｽﾉ起ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾ
hCalc:=FindWindow(nil,'sample_app');
//ｿｽｿｽｿｽﾉ起ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽｿｽIｿｽｿｽ
SendMessage(hCalc,WM_SYSCOMMAND,SC_CLOSE,0); {ｿｽIｿｽｿｽ}
ｿｽ@ｿｽ@//ｿｽﾄ度ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽ
WinExec('C:¥Program Files¥sample_app¥sample.exe', SW_SHOW);
(*
ｿｽｿｽLｿｽﾌアｿｽvｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽｿｽｿｽｿｽｿｽｿｽiniｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾞのゑｿｽｿｽｿｽｿｽA
ｿｽ@ｿｽ@ｿｽ@ｿｽﾇみ搾ｿｽｿｽﾟなゑｿｽｿｽB
ｿｽ@ｿｽ@ｿｽ@CreateProcessｿｽｿｽShellExecuteｿｽﾅゑｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽ@ｿｽﾜゑｿｽｿｽAｿｽNｿｽｿｽｿｽOｿｽｿｽSleepｿｽｿｽｿｽﾄゑｿｽ況は変ゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
*)
ｿｽｿｽｿｽﾝまゑｿｽｿｽが、ｿｽｿｽｿｽｿｽがゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
Win2k + delphi6
ｿｽnｿｽｿｽｿｽnｿｽｿｽ 2004/10/21(ｿｽｿｽ) 11:13:08
CreateProcessｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ齦費ｿｽﾔ茨ｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
