quarta-feira, 7 de outubro de 2009

Criando alias via programação

{Criando alias via programação

Se for para Paradox ...}

Session.AddStandardAlias('SeuAlias', edtPath.text, 'Paradox');
Session.SaveConfigFile;



//Desabilitar acesso a windows

Ai vai um codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)

var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;

Nenhum comentário:

Postar um comentário