Žádné odpovědi

[Kreten8]

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 September 2015 - 15:42