abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

včera 17:33 | Komunita

Společnost Purism informuje o aktuálním vývoji chytrého telefonu Librem 5, jenž by měl respektovat bezpečnost, svobodu a soukromí uživatelů. Telefon už umí telefonovat. Librem 5 by měl být k dispozici v lednu 2019. Předobjednat jej lze za 599 dolarů.

Ladislav Hagara | Komentářů: 9
včera 09:00 | Bezpečnostní upozornění

Společnost Qualys zveřejnila výsledky bezpečnostního auditu procps-ng. Nalezeno bylo 7 bezpečnostních chyb (CVE-2018-1120, CVE-2018-1121, CVE-2018-1122, CVE-2018-1123, CVE-2018-1124, CVE-2018-1125 a CVE-2018-1126). Dvě z nich jsou zneužitelné k lokální eskalaci práv. Příslušné záplaty jsou již k dispozici v upstreamu.

Ladislav Hagara | Komentářů: 1
18.5. 06:44 | Nová verze

Byla vydána třiadvacátá alfa verze svobodné historické realtimové strategie 0 A.D. (Wikipedie). Kódový název této nejnovější verze je Ken Wood. Představení novinek v poznámkách k vydání a také na YouTube.

Ladislav Hagara | Komentářů: 3
18.5. 05:55 | Zajímavý článek

Tento týden se v Cambridge ve Velké Británii konal hackfest, který měl za cíl zlepšit výkon na GNOME postavených systémů na slabších počítačích. Hans de Goede například analyzoval spotřebu paměti jednotlivých komponent ve Fedora 28 Workstation na stroji s 2 GB RAM a pomocí kroků popsaných v článku Kde uspořit paměť ve Fedora Workstation na MojeFedora.cz snížil spotřebu paměti z 1,4 GB na 765 MB.

Ladislav Hagara | Komentářů: 8
17.5. 20:55 | Nová verze

Bram Moolenaar oznámil vydání verze 8.1 textového editoru Vim (Vi IMproved). Hlavní novinkou je integrovaný terminál.

Ladislav Hagara | Komentářů: 8
17.5. 16:55 | Nová verze

Bylo oznámeno vydání nové stabilní verze 1.27 a beta verze 1.28 open source textového editoru Atom (Wikipedie). Přehled novinek i s náhledy v příspěvku na blogu. Podrobnosti v poznámkách k vydání.

Ladislav Hagara | Komentářů: 6
17.5. 11:11 | Nová verze

Byla vydána verze 5.2 open source virtualizační platformy Proxmox VE (Proxmox Virtual Environment, Wikipedie) založené na Debianu. Přehled novinek v poznámkách k vydání a v informačním videu. Před měsícem slavil Proxmox VE 10 let (pdf).

Ladislav Hagara | Komentářů: 16
17.5. 10:22 | Nová verze

Byla vydána verze 4.8 a záhy na to opravná verze 4.8.1 svobodné náhrady proprietárních BIOSů coreboot (Wikipedie). Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 10
16.5. 05:55 | Komunita

Správce souborů (Files, Soubory, Nautilus) v nejnovějším GNOME 3.28 již neumožňuje zobrazovat ikony na ploše. Dalším vylepšením bude pravděpodobně odstranění možnosti spouštění aplikací (commit) přímo ze správce souborů.

Ladislav Hagara | Komentářů: 126
16.5. 04:44 | IT novinky

Dnes končí crowdfundingová kampaň na podporu modulárního open source routeru Turris MOX od CZ.NIC. Cílová částka 250 tisíc dolarů byla vybrána. Z posledních novinek představených v rámci kampaně lze zmínit demo webového rozhraní, spolupráci s Nextcloudem a Turris MOX: Cloud nebo konfigurátor pro testování kompatibility jednotlivých modulů.

Ladislav Hagara | Komentářů: 19
Používáte pro některé služby inetd?
 (32%)
 (26%)
 (43%)
Celkem 129 hlasů
 Komentářů: 3, poslední 9.5. 08:05
    Rozcestník

    Dotaz: inno pascal iss

    12.8.2011 16:47 adrinko | skóre: 22
    inno pascal iss
    Přečteno: 232×
    zdravím, v iss používam tento kód na zistenie, či aplikácia beží alebo nie
    [Code]
    ////////// zaciatok psvince.dll //////////
    const
      ProgramName = 'notepad';
      ProgramExeName = 'notepad.exe';
    
      ProgramRunningOnInstallMessage = ProgramName + ' is currently running. ' + #13 + #13 + 'Please close it and then click on ''Retry'' to proceed with the installation.';
      InstallationCanceledMessage = 'The installation was canceled.';
    
      ProgramRunningOnUninstallMessage = ProgramName + ' is currently running. ' + #13 + #13 + 'Please close it and then click on ''Retry'' to proceed.';
      UninstallationCanceledMessage = 'The uninstallation process was canceled.';
    
    // IsModuleLoadedI - function to call at install time
    // Also added setuponly flag
    function IsModuleLoadedI(modulename: AnsiString ):  Boolean;
    external 'IsModuleLoaded@files:psvince.dll stdcall setuponly';
    
    // IsModuleLoadedU - function to call at uninstall time
    // Also added uninstallonly flag
    function IsModuleLoadedU(modulename: AnsiString ):  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;
    
    //------------------------------------------------------------------------------
    
    // Prompt the user to close a program that's still running.
    // Finish when the executable is closed or the user cancels the process.
    
    //  -> message : A message to show the user to prompt them to close 
    //  -> isUninstallation : Whether this is an uninstallation (to call the right function.)
    // <-  True if the program was closed (or was not running),
    //     False if the user clicked on the Cancel button and didn't close the program
    
    function PromptUntilProgramClosedOrInstallationCanceled(message: String; isUninstallation: Boolean ): Boolean;
    var
      ButtonPressed : Integer;
    begin
      ButtonPressed := IDRETRY;
    
      // Check if the program is running or if the user has pressed the cancel button
      while IsModuleLoaded( ProgramExeName, isUninstallation ) and ( ButtonPressed <> IDCANCEL ) do
      begin
        ButtonPressed := MsgBox( message , mbError, MB_RETRYCANCEL );    
      end;
    
      // Has the program been closed?
      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 );
    
      // Unload the DLL, otherwise the dll psvince is not deleted
      UnloadDLL(ExpandConstant('{app}\psvince.dll'));
    
      if not Result then
      begin
        MsgBox( UninstallationCanceledMessage, mbInformation, MB_OK );
      end;  
    end;
    
    ////////// koniec psvince.dll //////////
    teraz by som potreboval, aby premenné ProgramRunningOnInstallMessage, InstallationCanceledMessage sa naplnili textom jazykovej mutácie, ktorú si užívateľ vybral, t.j. povedzme stringom UninstallAppRunningError z slovak.isl (jazyky mám v inno scripte nadefinované). ako mám pozmeniť v kóde vyššie tú časť :???
    const
      ProgramRunningOnInstallMessage = ProgramName + ' is currently running. ' + #13 + #13 + 'Please close it and then click on ''Retry'' to proceed with the installation.';
    
    prosím o názorný príklad, lebo pascal vôbec neovládam

    Řešení dotazu:


    Odpovědi

    12.8.2011 18:44 adrinko | skóre: 22
    Rozbalit Rozbalit vše Re: inno pascal iss
    mám to!

    Result := PromptUntilProgramClosedOrInstallationCanceled( FmtMessage(SetupMessage(msgSetupAppRunningError), ['YourAppName']), False );

    Pre CustomMessages: [CustomMessages] ProgramRunningOnInstallMessage = %1 is currently running.%nPlease close it and then click on 'Retry' to proceed with the installation.

    a v kóde: Result := PromptUntilProgramClosedOrInstallationCanceled(FmtMessage(CustomMessage('ProgramRunningOnInstallMessage'), ['YourAppName']), False );

    skunkOS avatar 12.8.2011 20:09 skunkOS | skóre: 26 | blog: Tak nějak
    Rozbalit Rozbalit vše Re: inno pascal iss
    PromptUntilProgramClosedOrInstallationCanceled

    takhle dlouhý název funkce ---> taková sviňárna se jen tak nevidí :)
    http://martinrotter.github.io
    14.8.2011 08:46 phr | skóre: 13 | blog: no_comment | Klatovy
    Rozbalit Rozbalit vše Re: inno pascal iss
    Ale zase není třeba psát komentář.
    "Umělá inteligence se nemůže rovnat přirozený blbosti"
    skunkOS avatar 15.8.2011 10:33 skunkOS | skóre: 26 | blog: Tak nějak
    Rozbalit Rozbalit vše Re: inno pascal iss
    :D:D
    http://martinrotter.github.io
    15.8.2011 12:09 adrinko | skóre: 22
    Rozbalit Rozbalit vše Re: inno pascal iss
    vďaka za podnetné komentáre...
    16.8.2011 09:03 VM
    Rozbalit Rozbalit vše Re: inno pascal iss
    Já chci taky programovat ISS (http://en.wikipedia.org/wiki/ISS), ale už je nahoře :-)

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.