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í
×

dnes 15:33 | Komunita

Přesně před čtyřiadvaceti lety, 16. srpna 1993, oznámil Ian Murdock vydání "Debian Linux Release".

Ladislav Hagara | Komentářů: 0
dnes 06:00 | Bezpečnostní upozornění

Ve virtualizačním softwaru Xen bylo nalezeno a opraveno 5 bezpečnostních chyb XSA-226 až XSA-230. Nejzávažnější z nich XSA-227 (CVE-2017-12137) umožňuje eskalaci privilegií a ovládnutí celého systému, tj. správce hostovaného systému se může stát správcem hostitelského systému.

Ladislav Hagara | Komentářů: 0
včera 22:00 | Zajímavý projekt

V roce 2013 proběhla na Kickstarteru úspěšná kampaň na podporu otevřeného Dobře temperovaného klavíru (Well-Tempered Clavier). Stejný tým s Kimiko Išizaka spustil před týdnem na Kickstarteru kampaň Libre Art of the Fugue na podporu svobodného Umění fugy.

Ladislav Hagara | Komentářů: 1
včera 13:55 | Pozvánky

Spolek OpenAlt zve příznivce otevřených technologií a otevřeného přístupu na 143. brněnský sraz, který proběhne v pátek 18. srpna od 18:00 hodin ve sportovním areálu a restauraci BeachPub Sokolák u Brněnské přehrady aneb v hantecu u Prýglu.

Ladislav Hagara | Komentářů: 0
včera 10:55 | Nová verze

Byla vydána (pdf) verze 3 průběžně aktualizované (rolling release) linuxové distribuce Solus (Wikipedie). Ke stažení je v edicích Budgie, GNOME a MATE. Z novinek lze zmínit například podporu snapů. Solus 3 obsahuje Firefox 55.0.1, LibreOffice 5.4.0.3, Rhythmbox 3.4.1 nebo Thunderbird 52.2.1. Edice Budgie a GNOME přichází s GNOME MPV 0.12. Edice MATE s VLC 2.2.6.

Ladislav Hagara | Komentářů: 5
14.8. 21:44 | Nová verze

Po více než roce vývoje od vydání verze 1.0 Microsoft oznámil vydání verze 2.0 platformy .NET Core (GitHub). Přehled novinek v poznámkách k vydání a ve videu na Channel 9.

Ladislav Hagara | Komentářů: 0
14.8. 21:11 | Pozvánky

Před dvaceti lety, 15. srpna 1997, poslal Miguel de Icaza do diskusního listu GTK+ email, který je považován za zahájení projektu GNOME. Linux Desktop Meetup pořádá oslavu ve středu 16. srpna od 19:00 v brněnském Charlie's square.

Ladislav Hagara | Komentářů: 16
14.8. 11:55 | IT novinky
Na šampionátu The International 2017 byl představen bot, který poráží profesionální hráče počítačové hry Dota 2. Bot zatím umí jenom zápasy 1v1. Vývojáři pracují na podpoře 5v5. Jedná se o společný projekt organizace OpenAI a společnosti Valve. Více na stránkách OpenAI a na YouTube. Dle Elona Muska je elektronický sport mnohem komplexnější než šachy nebo go [Hacker News].
Ladislav Hagara | Komentářů: 9
14.8. 05:55 | Nová verze

Byla vydána verze 20.0 a krátce na to opravná verze 20.0.1 svobodného softwaru OBS Studio (Open Broadcaster Software, Wikipedie) určeného pro streamování a nahrávání obrazovky počítače. Přehled novinek i s náhledy a animovanými gify v příspěvku na blogu.

Ladislav Hagara | Komentářů: 0
14.8. 04:44 | Komunita

Mozilla.cz informuje, že nová verze 3.26 prohlížeče Gnome Web, původně Epiphany, bude obsahovat možnost synchronizace záložek, uložených hesel, otevřených panelů a historie. Jak nastínil jeden z vývojářů na svém blogu, funkce bude využívat synchronizační servery Mozilly, díky čemuž bude možná synchronizace nejen s ostatními instancemi Gnome Webu, ale i s desktopovým a mobilním Firefoxem. Vše bylo vyvinuto vysokoškolským studentem z Rumunska v rámci programu Google Summer of Code.

Ladislav Hagara | Komentářů: 0
Těžíte nějakou kryptoměnu?
 (4%)
 (2%)
 (17%)
 (77%)
Celkem 334 hlasů
 Komentářů: 21, poslední 13.8. 09:57
    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.