Altap Salamander Support Forums

Posted: **18 Feb 2010, 09:48**

V návaznosti na http://forum.altap.cz/viewtopic.php?f=7&t=3063

Včera mi došlo, že s novou verzí Salamandera 2.53 beta 1 PB 44 lze přiřadit libovolnému příkazu horkou klávesu. Do adresáře Salamandera plugins\automation\scripts přidáte skript (například pojmenovaný Hide Selected Names.js):

Code: Select all

if (Salamander.SourcePanel.SelectedItems.Count > 0)
{
  var wshShell = new ActiveXObject("WScript.Shell");
  wshShell.SendKeys("%edh");
}

Skript používá funkci SendKeys pro zaslání kombinace kláves Alt+E, D, H, které v anglické verzi Salamandera spustí příklaz Edit > Advanced > Hide Selected Names.

Potom je potřeba znovu spustit Salamandera, aby se znovu načetly skripty (tento krok s příští verzí Salamanadera odpadne).

A pak již lze skriptu přiřadit horkou klávesu:

: keys.png (85.44 KiB) Viewed 6959 times

Posted: **18 Feb 2010, 15:18**

Jan Rysavy wrote: A pak již lze skriptu přiřadit horkou klávesu:

Super! Vše funguje až na přiřazení zkratkové klávesy. Pokud skript spustím přes Script menu tak funguje. Přes zkratku Ctrl-Alt-H ne (provede pouze unselect souborů). Má to něco společného se SendKeys, nebo to mám špatně nastavené?

EDIT: Pokud přiřadím Ctrl-Shift-H, tak mi to spouští DiskMap Plugin (Ctrl-Shift-D taky)

Vista 32b, spuštěno jako Administrator

Code: Select all

If Salamander.SourcePanel.SelectedItems.Count > 0 Then
  Dim WshShell
  
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.SendKeys("%edi")
End If

: Clipbrd1.png (96.37 KiB) Viewed 6937 times

Posted: **18 Feb 2010, 17:36**

Potvrzuji problém, možná SendKeys() nebude tak použitelná funkce, jak jsem si původně představoval. Udělám průzkum a ozvu se.

Altap Salamander Support Forums

PB44 Automation: přiřazení horkých kláves příkazům

PB44 Automation: přiřazení horkých kláves příkazům

Re: Novy filtr nad soubory

Re: Automation: přiřazení horkých kláves existujícím příkazům