[Files]
Source: psvince.dll; DestDir: {app}
Source: psvince.dll; flags: dontcopy

const

ProgramName = 'UygulamaAdi';
ProgramExeName = 'UygulamaAdi.exe';

  ProgramRunningOnUninstallMessage = ProgramName + '  adlı uygulama şu anda çalışıyor. ' + #13 + #13 +
     'Lütfen uygulamayı kapatın ve "Yeniden Dene" butonuna basınız.';

 UninstallationCanceledMessage = 'Kaldırılma işlemi iptal edildi.';

function IsModuleLoadedI(modulename: String ):  Boolean;
external 'IsModuleLoaded@files:psvince.dll stdcall setuponly';

function IsModuleLoadedU(modulename: String ):  Boolean;
external 'IsModuleLoaded@{app}\psvince.dll stdcall uninstallonly' ;

function IsModuleLoaded( modulename: String; isUninstallation: Boolean ): Boolean;
begin
 if isUninstallation then
   Result := IsModuleLoadedU( modulename )
 else
   Result := IsModuleLoadedI( modulename );
end;

function UygulamaKaldirmaIptal( 
             message: String; 
             isUninstallation: Boolean ): Boolean;
var
 ButtonPressed : Integer;
begin
 ButtonPressed := IDRETRY;

 while IsModuleLoaded( ProgramExeName, isUninstallation ) and ( ButtonPressed <> IDCANCEL ) do
 begin
   ButtonPressed := MsgBox( message , mbError, MB_RETRYCANCEL );    
 end;

 Result := Not IsModuleLoaded( ProgramExeName, isUninstallation );
end;

function InitializeUninstall(): Boolean;
begin
 Result := UygulamaKaldirmaIptal( ProgramRunningOnUninstallMessage, True );

 UnloadDLL(ExpandConstant('{app}\psvince.dll'));

 if not Result then
 begin
   MsgBox( UninstallationCanceledMessage, mbInformation, MB_OK );
 end;  
end;

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "UygulamaAdi"
#define MyAppVersion "BETA"
#define MyAppPublisher "Halil Han Badem, Developer"
#define MyAppExeName "UygulamaAdi.exe"
#define MyAppCopyright "Developer by Halil Han Badem"

[Setup]
AppId={{A3D45299-0E0E-4E4C-8482-54E88F52B7B0}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
LicenseFile=C:\Users\Windows_User\Desktop\Licen.txt
InfoBeforeFile=C:\Users\Windows_User\Desktop\Info.txt
OutputDir=C:\Users\Windows_User\Desktop
OutputBaseFilename=UygulamaAdi_beta_setup
SetupIconFile=C:\Users\Windows_User\Desktop\UygulamaKlasoru\img\icon.ico
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler: Default.isl"
Name: "german"; MessagesFile: "compiler:Languages\German.isl"
Name: "turkish"; MessagesFile: "compiler:Languages\Turkish.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1

[Files]
Source: "C:\Users\Windows_User\Desktop\UygulamaKlasoru\UygulamaAdi.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: psvince.dll; DestDir: {app}
Source: psvince.dll; flags: dontcopy

[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon



[UninstallDelete]
Type: filesandordirs; Name: "{app}"


[Code]

const

ProgramName = 'UygulamaAdi';
ProgramExeName = 'UygulamaAdi.exe';

 ProgramRunningOnUninstallMessage = ProgramName + '  adlı uygulama şu anda çalışıyor. ' + #13 + #13 +
     'Lütfen uygulamayı kapatın ve "Yeniden Dene" butonuna basınız.';
 UninstallationCanceledMessage = 'Kaldırılma işlemi iptal edildi.';


function IsModuleLoadedI(modulename: String ):  Boolean;
external 'IsModuleLoaded@files:psvince.dll stdcall setuponly';

function IsModuleLoadedU(modulename: String ):  Boolean;
external 'IsModuleLoaded@{app}\psvince.dll stdcall uninstallonly' ;


function IsModuleLoaded( modulename: String; isUninstallation: Boolean ): Boolean;
begin
 if isUninstallation then
   Result := IsModuleLoadedU( modulename )
 else
   Result := IsModuleLoadedI( modulename );
end;


function PromptUntilProgramClosedOrInstallationCanceled( 
             message: String; 
             isUninstallation: Boolean ): Boolean;
var
 ButtonPressed : Integer;
begin
 ButtonPressed := IDRETRY;

 while IsModuleLoaded( ProgramExeName, isUninstallation ) and ( ButtonPressed <> IDCANCEL ) do
 begin
   ButtonPressed := MsgBox( message , mbError, MB_RETRYCANCEL );    
 end;

 Result := Not IsModuleLoaded( ProgramExeName, isUninstallation );
end;


function InitializeSetup(): Boolean;
begin
 Result := PromptUntilProgramClosedOrInstallationCanceled( ProgramRunningOnInstallMessage, False );

 if Not Result then
 begin
   MsgBox( InstallationCanceledMessage, mbInformation, MB_OK );
 end;
end;


function InitializeUninstall(): Boolean;
begin
 Result := PromptUntilProgramClosedOrInstallationCanceled( ProgramRunningOnUninstallMessage, True );

 UnloadDLL(ExpandConstant('{app}\psvince.dll'));

 if not Result then
 begin
   MsgBox( UninstallationCanceledMessage, mbInformation, MB_OK );
 end;  
end;



[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: runascurrentuser nowait postinstall skipifsilent

(09-08-2018, Saat: 01:58)hi_selamlar Adlı Kullanıcıdan Alıntı: Paylaşım için çok teşekkürler.

CreateMutex(nil, False, 'MyProgramsMutexName');

(09-08-2018, Saat: 10:11)Bahadir.Alkac Adlı Kullanıcıdan Alıntı: Merhaba,

Bahsettiğiniz yöntem bana çok doğru bir yöntem gibi gelmedi. Ayrıca, eğer paketlenecek programı da biz yazmışsak bunun daha kolay ve pratik bir yolu var Detaylı bilgiyi aşağıdaki adresten okuyabilirsiniz:

Setup AppMutex

Özeti: Uygulamanıza bir Mutex tanımlayın. Bunun için program çalıştığında (ben DPR dosyasına, daha main form bile açılmadan önce yazıyorum) aşağıdaki satırı çalıştırın:

CreateMutex(nil, False, 'MyProgramsMutexName');

Inno setup'da da [Setup] kısmına aşağıdaki satırı ekleyin:

Kod:

AppMutex=MyProgramsMutexName

Bu kadar Artık kurulum programınız, porgramınızın çalıştığını tespit edecek olursa önce onun kapatılmasını isteyecek.

Daha detaylı bilgi için yukarıdaki bağlantıya bakabilirsiniz. O da yetmezse hızlıca bir test uygulaması ve setup programı hazırlayın. Sonuçta en fazla 10 dakika sürecektir

İyi çalışmalar

(09-08-2018, Saat: 10:15)frmman Adlı Kullanıcıdan Alıntı: Teşekkürler detaylı anlatımınız için

(09-08-2018, Saat: 10:24)Bahadir.Alkac Adlı Kullanıcıdan Alıntı: Mesaj metnini değiştirebilirsiniz (dil dosyası ile yapılabilir), ama kurulum programının tepkisini değiştirmek (örneğin programı kapat ya da gerekirse bilgisayarı yeniden başlat vs gibi) mümkün mü ve mümkünse nasıl yapılır bilmiyorum. Daha fazlasına ihtiyaç varsa sizin çözümünüzden ziyade CreateMutex fonksiyonunu inno script içinden çağırmak, hata olduğu zaman da istediğiniz tepkiyi vermek daha doğru olur.

UninstallAppRunningError=Uninstall has detected that %1 is currently running.%n%nPlease close all instances of it now, then click OK to continue, or Cancel to exit.

(09-08-2018, Saat: 10:31)SimaWB Adlı Kullanıcıdan Alıntı: O zaman mesajı değiştirme konusunda da ben yardımcı olayım:
InnoSetup'ın dil dosyaları kurulum klasörü içinde Languages klasörü altında isl uzantılı dosyalardır. Default olarak ise kurulum klasörü içindeki Default.isl kullanılır.
Bunun içindeki mesajlar, yukarıda örneği de verilen InnoSetup'ın bazı durumlarda bize gösterdiği, yada kurulum penceresi üzerinde gözüken mesajlardır.
Bunlarda değişiklik yapmak isterseniz script içinde [Messages] bölümü oluşturmalısınız.
Yukarıda bahsedilen mesajın ismi UninstallAppRunningError'dır ve isl dosyasında şu şekilde tanımlanmıştır:

UninstallAppRunningError=Uninstall has detected that %1 is currently running.%n%nPlease close all instances of it now, then click OK to continue, or Cancel to exit.

Buna Messages kısmında bir değer verirseniz sizin verdiğiniz değer gözükür.