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 14:00 | Zajímavý článek

    Byl publikován aktuální přehled vývoje renderovacího jádra webového prohlížeče Servo (Wikipedie).

    Ladislav Hagara | Komentářů: 0
    včera 12:00 | Nová verze

    V programovacím jazyce Go naprogramovaná webová aplikace pro spolupráci na zdrojových kódech pomocí gitu Forgejo byla vydána ve verzi 12.0 (Mastodon). Forgejo je fork Gitei.

    Ladislav Hagara | Komentářů: 0
    17.7. 18:44 | Zajímavý článek

    Nová čísla časopisů od nakladatelství Raspberry Pi zdarma ke čtení: Raspberry Pi Official Magazine 155 (pdf) a Hello World 27 (pdf).

    Ladislav Hagara | Komentářů: 1
    17.7. 16:11 | Nová verze

    Hyprland, tj. kompozitor pro Wayland zaměřený na dláždění okny a zároveň grafické efekty, byl vydán ve verzi 0.50.0. Podrobný přehled novinek na GitHubu.

    Ladislav Hagara | Komentářů: 2
    17.7. 15:55 | Komunita

    Patrick Volkerding oznámil před dvaatřiceti lety vydání Slackware Linuxu 1.00. Slackware Linux byl tenkrát k dispozici na 3,5 palcových disketách. Základní systém byl na 13 disketách. Kdo chtěl grafiku, potřeboval dalších 11 disket. Slackware Linux 1.00 byl postaven na Linuxu .99pl11 Alpha, libc 4.4.1, g++ 2.4.5 a XFree86 1.3.

    Ladislav Hagara | Komentářů: 5
    16.7. 21:22 | IT novinky

    Ministerstvo pro místní rozvoj (MMR) jako první orgán státní správy v Česku spustilo takzvaný „bug bounty“ program pro odhalování bezpečnostních rizik a zranitelných míst ve svých informačních systémech. Za nalezení kritické zranitelnosti nabízí veřejnosti odměnu 1000 eur, v případě vysoké závažnosti je to 500 eur. Program se inspiruje přístupy běžnými v komerčním sektoru nebo ve veřejné sféře v zahraničí.

    Ladislav Hagara | Komentářů: 19
    16.7. 16:22 | IT novinky

    Vláda dne 16. července 2025 schválila návrh nového jednotného vizuálního stylu státní správy. Vytvořilo jej na základě veřejné soutěže studio Najbrt. Náklady na přípravu návrhu a metodiky činily tři miliony korun. Modernizovaný dvouocasý lev vychází z malého státního znaku. Vizuální styl doprovází originální písmo Czechia Sans.

    Ladislav Hagara | Komentářů: 26
    16.7. 15:33 | Upozornění

    Vyhledávač DuckDuckGo je podle webu DownDetector od 2:15 SELČ nedostupný. Opět fungovat začal na několik minut zhruba v 15:15. Další služby nesouvisející přímo s vyhledáváním, jako mapyAI asistent jsou dostupné. Pro některé dotazy během výpadku stále funguje zobrazování například textu z Wikipedie.

    bindiff | Komentářů: 8
    16.7. 13:33 | Bezpečnostní upozornění

    Více než 600 aplikací postavených na PHP frameworku Laravel je zranitelných vůči vzdálenému spuštění libovolného kódu. Útočníci mohou zneužít veřejně uniklé konfigurační klíče APP_KEY (např. z GitHubu). Z více než 260 000 APP_KEY získaných z GitHubu bylo ověřeno, že přes 600 aplikací je zranitelných. Zhruba 63 % úniků pochází z .env souborů, které často obsahují i další citlivé údaje (např. přístupové údaje k databázím nebo cloudovým službám).

    Ladislav Hagara | Komentářů: 5
    16.7. 00:11 | Nová verze

    Open source modální textový editor Helix, inspirovaný editory Vim, Neovim či Kakoune, byl vydán ve verzi 25.07. Přehled novinek se záznamy terminálových sezení v asciinema v oznámení na webu. Detailně v CHANGELOGu na GitHubu.

    Ladislav Hagara | Komentářů: 0
    Jaký je váš oblíbený skriptovací jazyk?
     (59%)
     (27%)
     (7%)
     (3%)
     (0%)
     (1%)
     (4%)
    Celkem 410 hlasů
     Komentářů: 16, poslední 8.6. 21:05
    Rozcestník

    Dotaz: inno pascal iss

    12.8.2011 16:47 adrinko | skóre: 22
    inno pascal iss
    Přečteno: 276×
    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: 27 | 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: 27 | 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.