[Delphi] InnoSetup : 설치/제거 할 때 프로그램 종료하기



InnoSetup [Code] 부분에 이렇게 넣으면


설치하거나 제거할 때 강제로 프로세스를 종료한다!




[Code]

const

WM_CLOSE = $0010;


// 프로그램 설치 시 

function InitializeSetup: Boolean;

var

Wnd: HWND;

begin

while(true) do

begin

Wnd := FindWindowByClassName('메인폼클래스명');

if Wnd <> 0 then

begin

SendMessage(Wnd, WM_CLOSE, 0, 0);

end

else

begin

break;

end;

end;


Result := True;

end;


// 프로그램 제거 시 

function InitializeUninstall: Boolean;

var

Wnd: HWND;

begin

while(true) do

begin

Wnd := FindWindowByClassName('메인폼클래스명');

if Wnd <> 0 then

begin

SendMessage(Wnd, WM_CLOSE, 0, 0);

end

else

begin

break;

end;

end;


Result := True;

end;