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 08:00 | Zajímavý projekt

    DIY trackball Ploopy novou variantu Adept, na rozdíl od předchozích používá 44mm kouli, má symetrický tvar a šest tlačítek, snímač zůstává PMW-3360, novinkou je použití Raspberry Pi Pico, na kterém běží firmware QMK s podporou grafické konfigurační aplikace VIA. Předobjednávky jsou otevřeny za ceny 80-105 CAD.

    Fluttershy, yay! | Komentářů: 0
    včera 15:22 | IT novinky

    Probíhá Meta Connect 2023. Společnost Meta představuje své novinky v oblasti AI a virtuální, smíšené a rozšířené reality. Představeny byly nové chytré brýle Ray-Ban | Meta a headset Meta Quest 3.

    Ladislav Hagara | Komentářů: 0
    včera 12:00 | IT novinky

    Eben Upton oficiálně představil (YouTube) nové Raspberry Pi 5 (YouTube). Je více než 2x výkonnější než jeho předchůdce, model 4B.

    Ladislav Hagara | Komentářů: 8
    včera 08:00 | Nová verze

    Byl vydán (YouTube) Counter-Strike 2. Nativně také pro Linux. Jedná se o největší technologický skok v historii této populární herní série.

    Ladislav Hagara | Komentářů: 9
    včera 07:00 | Komunita

    Richard Stallman vystoupí v Praze s přednáškou Free Software And Your Freedom. V sobotu 30. září ve 14:30 na Pedagogické fakultě UK a v neděli 1. října v 18:00 hodin v rámci konference Hackers Congress Paralelní Polis.

    Jendа | Komentářů: 9
    27.9. 14:44 | Nová verze

    Byla vydána verze 6 s kódovým název Faye linuxové distribuce LMDE (Linux Mint Debian Edition). Podrobnosti v poznámkách k vydání. Linux Mint vychází z Ubuntu. LMDE je postaveno na Debianu.

    Ladislav Hagara | Komentářů: 2
    27.9. 13:11 | Bezpečnostní upozornění

    Byly publikovány informace o novém bezpečnostním problému pojmenovaném GPU.zip (paper, GitHub). S vlastním logem. Jedná se o možný útok postranním kanálem na grafickou kartu (GPU). Proces může "krást pixely" jinému procesu.

    Ladislav Hagara | Komentářů: 1
    27.9. 08:00 | Komunita

    Projekt GNU dnes slaví 40. výročí. Přesně před čtyřiceti lety, 27. září 1983, Richard Stallman oznámil, že se chystá napsat s Unixem kompatibilní operační systém GNU (Gnu's Not Unix). Hlavní oslava a setkání hackerů probíhá ve Švýcarsku ve městě Biel/Bienne. Na programu je také přednáška Richarda Stallmana.

    Ladislav Hagara | Komentářů: 11
    26.9. 15:55 | Nová verze

    Byl vydán Mozilla Firefox 118.0. Přehled novinek v poznámkách k vydání, poznámkách k vydání pro firmy a na stránce věnované vývojářům. Vypíchnout je nutno automatický lokální strojový překlad webových stránek. Řešeny jsou rovněž bezpečnostní chyby. Nový Firefox 118 je již k dispozici také na Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 44
    26.9. 12:55 | Nová verze

    Byla vydána nová major verze 15.0.0 softwaru OCRmyPDF pro přidávání textové vrstvy k naskenovaným PDF dokumentům (PDF/A). Přehled novinek v poznámkách k vydání. OCRmyPDF využívá pro optické rozpoznávání znaků (OCR) engine Tesseract.

    Ladislav Hagara | Komentářů: 22
    Knihy s linuxovou tematikou
     (19%)
     (15%)
     (51%)
     (27%)
    Celkem 279 hlasů
     Komentářů: 11, poslední 17.9. 19:19
    Rozcestník

    Dotaz: inno pascal iss

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