Buono sconto 4% su Toner e Cartucce agli utenti AZpoint. SU Iomiricarico.it!!
Ci sono alcuni programmi o situazioni particolari che richedono la disabilitazione delle combinazioni di tasti Alt+Tab o Ctrl+Esc. Il tutto si riduce ad una semplice chiamata ad una procedura:
Application.ShowMainForm := false;
procedure DisabilitaTasti;
var OldVal: LongInt;
begin
SystemParametersInfo(97, Word(True), @OldVal, 0);
end;
procedure AbilitaTasti;
var OldVal: LongInt;
begin
SystemParametersInfo(97, Word(False), @OldVal, 0);
end;
Non dovremo fare altro quindi che chiamare la procedura DisabilitaTasti per disattivare le combinazioni e successivamente AbilitaTasti per riattivarle.
|