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 »

Mapear um drive de rede

Mapear um drive de rede Como mapear uma unidade de rede via programação Delphi Function MapeaRede(Letra,Path,provedor:Pchar):String; // Local = Letra atribuida a unidade // Path = Caminho do mapeamento // Provedor = Provedor da rede var NRW: TNetResource; begin with NRW do begin dwType := RESOURCETYPE_ANY; lpLocalName := Letra; lpRemoteName := Path; lpProvider := provedor;

Continuar lendo »

Recebe String de data e converte do formato ORIGEM para formato DESTINO

Função que recebe String de data e converte do formato ORIGEM para formato DESTINO   function InverteStringData(sData, sFormatoOrigem, sFormatoDestino: String):String; // Ex: // InverteStringData(DateToStr(Date),’DD/MM/AAAA’,’AAAA/MM/DD’) var sDia : String; sMes : String; sAno : String; begin if sFormatoOrigem = ‘DD/MM/AAAA’ then begin sDia := Copy(sData,1,2); sMes := Copy(sData,4,2); sAno := Copy(sData,7,4); end else if sFormatoOrigem =

Continuar lendo »
Pages:1234567...22»