Zdravím, z historických důvodů běží na jednom PC dvě samostatné aplikace Promotic. V samotném spuštění a provozu aplikací není problém. Chtěl bych zajistit přes tlačítko v liště, aby se dalo z jedné aplikace přepínat do druhé aplikace pokud již běží nebo by spustila a následně maximalizovala (pro obě aplikace).
Pro spuštení a přepínání používám skript který byl měl přes OtherAppOper zjistit zda běří druhá aplikace a pokud ne pak by ji měl spustit pomocí ShellExecute. Druhá aplikace má v horní liště skutečně název "Ledová voda".
Skript se chová tak, že vždy dojde k zavolání ShellExecute bez ohledu, zda aplikace běží nebo ne. Pokus o druhé spuštění aplikace Promotic pak způsobí chybové hlášení "Aplikaci nelze spustit protože běží nebo není soubor dostupný".
dim bOper
bOper = Pm.OtherAppOper (3, "Ledová voda", 11)
pm.Debug "bOper:" & bOper
if NOT bOper then
Pm.ShellExecute "open", "C:\Projekty_PM\xxx.pra", "", "C:\Projekty_PM\", 3
end if
Jak lze jinak zajistit funkci spuštění / přepnutí obou aplikací mezi sebou.
Díky.