Acrescente a Unit MMSystem ao seu projeto e escreva o codigo abaixo: sndPlaysound('c:\windows\ding.wav',snd_async);3) Acrescente a ShellApi a clausula uses de sua Unit e escreva:ShellExecute(0,nil,'ARJ.EXE','A BACKUP C:\DADOS\*.DB' ,nil,sw_hide); Testando drivesfunction TForm1.TemDiscoNoDrive(const drive : char): boolean;var DriveNumero : byte; EMode : word;begin result := false; DriveNumero := ord(Drive); if DriveNumero >= ord('a') then dec(DriveNumero,$20); EMode := SetErrorMode(SEM_FAILCRITICALERRORS); try if DiskSize(DriveNumero-$40) <> -1 then Result := true else messagebeep(0); finally SetErrorMode(EMode); end;end;Utilize a funcao assim:procedure TForm1.Button1Click(Sender: TObject);begin if TemDiscoNoDrive('a') then ShowMessage('Tem disco no drive A:') else ShowMessage('Nao tem disco no drive A:');end; Habilitando / Desabilitando o Ctrl+Alt+Del e o Alt+TabPara desabilitar o Ctrl+Alt+Del, o Alt+Tab e o Ctrl+Esc, utilize a seguinte rotina:procedure TNomeDoForm.ButtonNameClick(Sender: TObject);var Numero : Integer;begin SystemParametersInfo (97, Word (True), @Numero, 0);end;E para reabilitar, utilize a rotina abaixo:procedure TNomeDoForm.ButtonName2Click(Sender: TObject);var Numero : Integer;begin SystemParametersInfo(97, Word (False), @Numero, 0);end; //-------------------------------------------------- Testa se uma data e validafunction DataValida(StrD: string): Boolean;begin Result := true; try StrToDate(StrD); except on EConvertError do Result:=False; end;end; Fazer a barra de titulo ficar intermitente (piscante)Inclua na secao uses: Windows{ Coloque um TTimer no Form desejado. Define a propriedade Interval do Timer para 1000 (1 segundo). Modifique o evento OnTimer do Timer conforme abaixo: }procedure TForm1.Timer1Timer(Sender: TObject);begin FlashWindow(Handle, true); FlashWindow(Application.Handle, true);end; Capacete - IRON MANPublicacao do novo paper em fase de conclusao, primeira parte ja concluido.Dentro de alguns dias ja estara pronto.Espero que tenham curtido o novo trabalho. Cavaleiros do Zodiaco - Os 12 Cavaleiros de OuroColecao de Cubeecraft dos 12 cavaleiros de Ouro do Santuario. Ate o proximo papercraft... EmiliaEmilia, personagem do jogo Phantasy Star, do consele PSP, modelo em miniatura feito com paper A4 de gramatura 75. Espero que tenham gostado do trabalho, pode deixar comentarios. ate o proximo paper... BulbasaurMeu primeiro papercraft construido, tenho pouco mais de 1 mes que estou montando papercraft. SpherepikachuO meu segundo trabalho, olhei na net e vi um trabalho bastante simples, mas ha um pouco de dificuldade principalmente no rabo. ate mais... Transformers - Bublebee e SonicAqui e o Bublebee, estou trabalhando agora para poder fazero Optimus, e temos tambem o mais novo SONIC que entrou essa semana para agaleria dos papers. Ate o proximopaper... SonicEsse trabalho foi feito com papel A4, os proximos trabalhos farei com papel couche com framatura de 180. Ate o proximo trabalho.Oi, estou editando so para melhorar as foto que tirei do SONIC. Aguardem novos paper estao em fase de montagem. Final Fantasy - TidusMais um paper concluido, e o Tidus do Final Fantasy, estou fazendo alguns para demonstracao. Em breve estarei fazendo mais para os clientes. ate a o proximo paper. Pokemon - CharizardOla pessoal? Estou aqui com mais alguns papers finalizados,houve atrasos em alguns pedidos mas ja estao todos concluidos. Nesse post vouapresentar o Pokemon CHARIZARD que e um dos meus favoritos. Espero que tenhamgostados do trabalho. Sandtroope e Stormtrooper - CubecraftCubeecraftEm breve estarei com outros personagens prontos. Caminhada em favor da PEC300 Recife PE >>+Veja Mais Postado em Sem categoria por Eduardo da Fonte Sem comentarios Algumas fotos dos Guerreiros no primeiro turno. Vamos lutar pelos nosso direito...PEC 300 Ja! Lucas PEC 300 Disse: QUE o GOVERNADOR