Přejít na obsah


Fotka

Pípnutí ve skriptu

geoget návod

  • Pokud chcete vložit odpověď, přihlašte se
Žádné odpovědi

#1 Kreten8

Kreten8

    Advanced Member

  • Members
  • PipPipPip
  • 1 753 příspěvků(y)

Publikováno 25 září 2015 - 15:42

Protože některé skripty trvají dlouho a dost často si jich nevšimnu, že už doběhly, tak jsem si dodělal pípnutí, které lze zavolat z libovolného místa skriptu a které mě upozorní, že něco skončilo. Takže třeba si nechávám pípnout v okamžiku, kdy exportní plugin čeká na hlášce, že je v exportu několik dlouhých listingů a jestli je chci zobrazit.
function Pipni(dwFreq, dwDuration : integer): integer; external 'Beep@Kernel32.dll stdcall';

procedure Zapipej;
var frekvence, delka, i : integer;
begin
  frekvence := 500; // Hz rozsah 32 - 32767
  delka := 300;     // ms
  Pipni(frekvence, delka);
  for i:=1 to 4 do
  begin
    Sleep(300);
    Pipni(frekvence, delka);
  end; 
end;
Takže tohle když si dáte na začátek vašeho skriptu, pak stačí v libovolném místě si zavolat proceduru Zapipej a ono to na vás 5x pípne

Tento příspěvek byl upraven od Kreten8: 25 září 2015 - 15:42

  • 2





Také označené jedním nebo více z těchto klíčových slov:geoget, návod

0 uživatel(ů) prochází toto téma

0 uživatelů, 0 návštěvníků 0 anonymních uživatelů

Reklama