[Dodakaedr]

Mailchik, Знаю, уже давали, но файл удален...

Mailchik,

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: "ISTaskU.dll"; Flags: dontcopy;

[ Code]
function KillTask(ExeFileName: string): Integer;
  external 'KillTask@files:ISTaskU.dll stdcall';

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
  external 'RunTask@files:ISTaskU.dll stdcall';

function InitializeSetup(): Boolean;
begin
  If RunTask('aimp3.exe', false) then begin
    if MsgBox('Закрыть AIMP?', mbError, mb_YesNo) = idYes then begin
      KillTask('aimp3.exe');
      Result := True;
    end else
      Exit;
    end;
  Result := True;
end;

При использовании этого кода вместе с

Код:

procedure DeinitializeSetup();
begin
gdipShutdown;
islogo_three(WizardForm.Handle);
end;

появляется ошибка "Could not call proc." при нажатии на "Нет". Подскажите как решить эту проблему.