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 01:23 | Komunita

Phoronix spustil 2017 Linux Laptop Survey. Tento dotazník s otázkami zaměřenými na parametry ideálního notebooku s Linuxem lze vyplnit do 6. července.

Ladislav Hagara | Komentářů: 2
23.6. 22:44 | Nová verze

Po třech měsících vývoje od vydání verze 5.5.0 byla vydána verze 5.6.0 správce digitálních fotografií digiKam (digiKam Software Collection). Do digiKamu se mimo jiné vrátila HTML galerie a nástroj pro vytváření videa z fotografií. V Bugzille bylo uzavřeno více než 81 záznamů.

Ladislav Hagara | Komentářů: 1
23.6. 17:44 | Nová verze

Byla vydána verze 9.3 open source alternativy GitHubu, tj. softwarového nástroje s webovým rozhraním umožňujícího spolupráci na zdrojových kódech, GitLab. Představení nových vlastností v příspěvku na blogu a na YouTube.

Ladislav Hagara | Komentářů: 3
23.6. 13:53 | Nová verze

Simon Long představil na blogu Raspberry Pi novou verzi 2017-06-21 linuxové distribuce Raspbian určené především pro jednodeskové miniaturní počítače Raspberry Pi. Společně s Raspbianem byl aktualizován také instalační nástroj NOOBS (New Out Of the Box Software). Z novinek lze zdůraznit IDE Thonny pro vývoj v programovacím jazyce Python a především offline verzi Scratche 2.0. Ten bylo dosud možné používat pouze online. Offline bylo možné používat pouze Scratch ve verzi 1.4. Z nového Scratchu lze ovládat také GPIO piny. Scratch 2.0 vyžaduje Flash.

Ladislav Hagara | Komentářů: 1
22.6. 14:24 | Nová verze

Opera 46, verze 46.0.2597.26, byla prohlášena za stabilní. Nejnovější verze tohoto webového prohlížeče je postavena na Chromiu 59. Z novinek lze zmínit například podporu APNG (Animated Portable Network Graphics). Přehled novinek pro vývojáře na blogu Dev.Opera. Oznámení o vydání zmiňuje také první televizní reklamu.

Ladislav Hagara | Komentářů: 0
22.6. 13:37 | IT novinky

I čtenáři AbcLinuxu před dvěma lety vyplňovali dotazníky věnované Retro ThinkPadu. Nyní bylo potvrzeno, že iniciativa Retro ThinkPad je stále naživu a Lenovo připravuje speciální edici ThinkPadu jako součást oslav jeho 25. výročí.

Ladislav Hagara | Komentářů: 27
22.6. 10:22 | Komunita

Bylo oznámeno, že frontend a runtime programovacího jazyka D bude začleněn do kolekce kompilátorů GCC (GNU Compiler Collection). Správcem byl ustanoven Iain Buclaw.

Ladislav Hagara | Komentářů: 7
21.6. 18:47 | IT novinky
Bulharská firma Olimex je známá jako výrobce kvalitních mini arm desek, u nichž se snaží být maximálně open source. Kromě velké otevřenosti taktéž zaručují dlouhodobou podporu výroby, což je vítáno ve firemním prostředí. Nyní firma ohlásila ESP32-GATEWAY, malou IoT desku s Wifi, Bluetooth, Ethernetem a 20 GPIO porty za 22EUR. Tato malá deska je ořezanou verzí ESP32-EVB.
Max | Komentářů: 21
21.6. 18:00 | Zajímavý článek

LinuxGizmos (v dubnu loňského roku přejmenován na HackerBoards a v lednu letošního roku zpět na LinuxGizmos) zveřejnil výsledky čtenářské ankety o nejoblíbenější jednodeskový počítač (SBC) v roce 2017. Letos se vybíralo z 98 jednodeskových počítačů (Tabulky Google). Nejoblíbenějšími jednodeskovými počítači v letošním roce jsou Raspberry Pi 3 Model B, Raspberry Pi Zero W a Raspberry Pi 2 Model B.

Ladislav Hagara | Komentářů: 0
21.6. 14:22 | Pozvánky

Ne-konference jOpenSpace 2017 se koná od 13. do 15. října 2017 v hotelu Farma u Pelhřimova. Registrace účastníků je nutná. Více informací na stránkách ne-konference.

Zdenek H. | Komentářů: 0
Chystáte se pořídit CPU AMD Ryzen?
 (6%)
 (31%)
 (1%)
 (9%)
 (44%)
 (9%)
Celkem 837 hlasů
 Komentářů: 65, poslední 1.6. 19:16
    Rozcestník

    Dotaz: inno pascal iss

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