Diawer
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Prog
AppVerName=My Prog
DefaultDirName={pf}\My Prog
DefaultGroupName=My Prog
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Files]
Source: compiler:ISTask.dll; DestDir: {tmp}; Flags: dontcopy
[Code_]
function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@files:ISTask.dll stdcall delayload';
function InitializeSetup(): Boolean;
begin
If RunTask('Compil32.exe', false) then //запущенный Inno Setup
begin
if MsgBox('Обнаружен запущенный экземпляр My Prog.'#13#13'Пожалуйста, закройте все экземпляры приложения, затем'#13#13'нажмите «OK», чтобы продолжить, или «Отмена», чтобы выйти.', mbError, mb_OkCancel) = idCancel then
Exit;
end;
Result:=True;
end; |
