Como habilitar e desabilitar as teclas ctrl+alt+del ?

Como habilitar e desabilitar as teclas ctrl+alt+del ? // desabilita procedure TForm1.Button1Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(true),@numero,0); end; // habilita procedure TForm1.Button2Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(false),@numero,0); end;

Continuar lendo »

Testando se tem cd na unidade de cd-rom

Testando se tem cd na unidade de cd-rom Esta rotina permite que se efetue um teste para verificação da presença de CD no CD-Rom, antes de mandar executar algum programa ou leitura. function CDinCDROMDrive(DriveLetter: Char): Boolean; // // Testa se tem CD no CD-Rom. // var Mask: string[6]; SearchRec: TSearchRec; SaveErrorMode: Cardinal; begin SaveErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); Mask:=

Continuar lendo »

Verificando a conexão de Internet via Delphi

Verificando a conexão de Internet via Delphi Para verificar a conexão de Internet via Delphi, siga os seguintes procedimentos: Inclua um componente TCP no Form, e digite o código: if (TCP1.LocalIP = ‘0.0.0.0’ or TCP1.LocalIP = ‘127.0.0.1’) then ShowMessage(‘Computador não está conectado na Internet’) else ShowMessage(‘Computado conectado na Internet’)

Continuar lendo »

Desconecta uma unidade mapeada via programação

Desconecta uma unidade mapeada via programação Delphi Function DesconectaRede(Letra:Pchar;Forcada:boolean):String; // Letra = Letra atribuida a unidade // Forcada = Força o cancelamento do mapeamento begin WNetCancelConnection2(Letra,0,Forcada); Case GetLastError() of 1205: Result := ‘Não foi possível abrir o perfil’; 1206: Result := ‘Perfil do usuário não encontrado ou inválido’; 1208: Result := ‘Ocorreu um Erro específico

Continuar lendo »
Pages:«12345678...23»