Autor Téma: Otevření okna běžící aplikace  (Přečteno 352 krát)

Offline karkojk

  • Nováček
  • *
  • Příspěvků: 10
  • Karma: 0
    • Verze Delphi: RAD Studio X5
Otevření okna běžící aplikace
« kdy: 22-10-2020, 14:19:57 »
Blbost, na kterou se ani nechci ptát, ale hledám, nenalézám, možná hledám špatný výraz.
Jde o otevření okna již běžící aplikace ve Windows (třeba notepad).

Zjištění, zda aplikace běží to mám, ale otevření toho okna se nedaří.
"ShellExecute" ten znovu spouští program.

Něco podobného mám v AutoHotkey

WinExist("ahk_exe XMind.exe")
        WinActivate

Chci si něco podobného udělat v Delphi s dalším rozšířením.

děkuji za případné nasměrování/nakopnutí
Programování pro radost, prý to bystří mysl ;-)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5615
  • Karma: 42
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Otevření okna běžící aplikace
« Odpověď #1 kdy: 22-10-2020, 14:35:25 »
Múdra kniha 1001 Tipov a trikov pre Delphi hovorí
Kód: Delphi [Vybrat]
  1. var
  2.   Wnd: HWND;
  3. begin
  4.   Wnd := FindWidow('NotePad', nil);
  5.   SetWindowPos(Wnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
  6.   SetWindowPos(Wnd, 0, 10, 10, 0, 0, SWP_NOSIZE or SWP_NOACTIVE or SWP_NOZORDER);
  7. end;
  8.  
  9.  
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline Jirka

  • Hrdina
  • ****
  • Příspěvků: 368
  • Karma: 9
    • Verze Delphi: XE2
Re:Otevření okna běžící aplikace
« Odpověď #2 kdy: 22-10-2020, 14:38:50 »
Já nevím co říká kniha, ale ja bych zkusil FindWindow ...

Offline paja666

  • Nováček
  • *
  • Příspěvků: 48
  • Karma: 0
    • Verze Delphi: 10.4.1 Sydney
Re:Otevření okna běžící aplikace
« Odpověď #3 kdy: 22-10-2020, 14:42:33 »
Já používám
Kód: Delphi [Vybrat]
  1. FindWindowExt(...);

Offline karkojk

  • Nováček
  • *
  • Příspěvků: 10
  • Karma: 0
    • Verze Delphi: RAD Studio X5
Re:Otevření okna běžící aplikace
« Odpověď #4 kdy: 22-10-2020, 15:02:25 »
Díky moc, v téhle knize jsem hledal, už blbě i vidím  :D ;D, FindWidow jsem hledal, zkoušel i ve spojení ShowWindow a pořád nic.

Tak teď to mám posvěcené, tak ještě jednou dík, už to běží.
« Poslední změna: 22-10-2020, 15:25:44 od karkojk »
Programování pro radost, prý to bystří mysl ;-)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5615
  • Karma: 42
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Otevření okna běžící aplikace
« Odpověď #5 kdy: 22-10-2020, 15:28:49 »
Ja som to hľadal v obsahu.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline František

  • Guru
  • *****
  • Příspěvků: 623
  • Karma: 6
    • Verze Delphi: primárne v XE5, občas 10.2.3 comunity
Re:Otevření okna běžící aplikace
« Odpověď #6 kdy: 26-10-2020, 20:24:45 »
Múdra kniha 1001 Tipov a trikov pre Delphi hovorí...
odkiaľ ju máš? ja som moju niekomu posunul a neviem komu

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5615
  • Karma: 42
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Otevření okna běžící aplikace
« Odpověď #7 kdy: 26-10-2020, 20:43:37 »
Dávno som si ju kúpil. Ešte som to stihol. Nemám žiadnu požičanú knihu ;)
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.