Jhonas

veja http://delphi.about.com/od/usedbvcl/l/aa042203a.htm abraço

ao que tudo indica, voce esqueceu de declarar as uses necessarias ( verifique ) uses SysUtils, FileCtrl; [Erro] FSisBackup.pas (278): tipos incompatíveis procure na linha 278 do seu código .... tipos incompativeis. Voce pode estar atribuindo a uma variavel string um valor inteiro sem que tenha sido feito uma conversão de tipos abraço

o proprio lookup ordena o campo ... e se fizer um Inner Join entre tabelas use campos comuns entre as tabelas para fazer a referencia, adicionando os campos que precisar ...a ordenação podera ser feita clicando no titulo do campo abraço

Pegar nome e tamanho de um arquivo function TamArquivo(Arquivo: string): Integer; begin with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do try Result := Size; finally Free; end; end; procedure TForm1.Button1Click(Sender: TObject); var tamanho : real; begin if OpenDialog1.Execute then begin tamanho := TamArquivo(OpenDialog1.FileName); tamanho := (tamanho / 1024); Label1.Caption:= 'Nome do Arquivo = ' + copy(OpenDialog1.FileName,pos('\',OpenDialog1.FileName)+1,20); Label2.Caption:= 'Tamanho do Arquivo = ' + format('%n',[tamanho]) + ' Kb'; end; end; outros atributos de arquivos http://scriptbrasil.com.br/forum/index.php...mp;hl=atributos outra dica: Obtendo o Nome, Caminho, Data, Atributos e o Tamanho de um arquivo Para pegar o Nome: FileDirName.Caption:= FileList.Items[FileList.ItemIndex]; Para pegar o Caminho: FilePathName.Caption:= FileList.Directory; Para pegar a Data: ChangeDate.Caption:= DateTimeToStr(FileDateTime(FileList.FileName)); Para pegar os Atributos: Attributes := FileGetAttr(FileDirName.Caption); Para pegar o Nome e o Tamanho: TheFileName: string; TheFileName := Items[itemIndex]; FilePanel.Caption := Format('%s, %d bytes', [TheFileName, GetFileSize(TheFileName)]); abraço

o exemplo que te passei no link, funciona perfeitamente, dando a voce a informação do tamanho da pasta quanto aos seus erros: warning é apenas um aviso, não sendo necessariamente um erro [Warning] FSisBackup.pas (67): Unit 'FileCtrl' é específico para uma plataforma [Warning] FSisBackup.pas (112): Para a variável de controle de loop deve ser variável local simples [Warning] FSisBackup.pas (276): Symbol "faArchive ' é específico para uma plataforma [Warning] FSisBackup.pas (276): Symbol "faHidden ' é específico para uma plataforma [Warning] FSisBackup.pas (277): Symbol "faVolumeID 'l é específico para uma plataforma [Warning] FSisBackup.pas (278): Symbol "faSysFile ' é específico para uma plataforma [Erro] FSisBackup.pas (278): tipos incompatíveis [Erro Fatal] SisBackup.dpr (9): Não foi possível compilar unidade usada 'FSisBackup.pas' entenda-se plataforma, como um comando especifico para uma determinada versão do delphi abraço

veja esse exemplo http://scriptbrasil.com.br/forum/index.php?showtopic=152290 abraço

veja http://informaticanaweb.wordpress.com/2007...tes-no-windows/ http://www.juliobattisti.com.br/artigos/wi...s/tcpip_p17.asp http://www.hardware.com.br/comunidade/bloq...utorial/852557/ https://www.scriptbrasil.com.br/download/codigo/3821/ abraço

projeto SisBackup.exe elevou classe de exceção EIdOSSLCouldNotLoadSSLLibrary com a mensagem 'Não foi possível carregar a biblioteca SSL.. Processo parado. Use Passo ou Corra para continuar. ou a biblioteca não existe, ou não foi encontrada no caminho especificado OBS: existem exemplos no forum que funcionam usando componentes indy ... faça uma pesquisa abraço

faça um teste com um multimetro no led, usando a escala para resistencia X1 ou X10 ( escala mais baixa do multimetro) deslique o aparelho, abra-o e com as pontas de prova nos terminais do led, voce verifica o funcionamento do led Teste do LED Os LEDs são testados como um diodo comum com o auxílio de um multímetro na escala de resistência. Em um sentido, o teste deve indicar baixa resistência e no outro, alta resistência. OBS: pode fazer o teste no proprio aparelho sem precisar dessoldar o led ( o led pode estar queimado ) abraço

tudo isso é possivel fazer, só depende de qual linguagem de programação voce vai usar abraço

Possivel é, mais vai ficar lento abraço

veja http://scriptbrasil.com.br/forum/index.php...st&p=644599 abraço

veja http://underh.nstars.org/t12-delphi-criando-trainer-full abraço

é para voce mostrar aqui ... não precisa ser tudo, somente uma parte abraço

crie uma exceção para o programa ou porta e deixe a opção <Não Permitir Exceções> desmarcada abraço

jogue os itens excluidos em um memo e mostre como aparece

ItensExcluidos := NameSpace.GetDefaultFolder(olFolderDeletedItems); Contacts := NameSpace.GetDefaultFolder(olFolderContacts); está meio confuso.... voce quer excluir um contato ou excluir um item dos itens excluídos ? abraço

Impossível alocar memória do sistema operacional. CODE ERROR: -904. Execução mal sucedida causada por um Recurso não disponível. Recurso não disponível OBS: coloque o seu código para facilitar a resposta abraço

procedure TForm1.Button1Click(Sender: TObject); begin MessageDlg('O registro foi salvo com sucesso', mtcustom, [mbOk], 0); end; http://www.planetadelphi.com.br/dica/7047/...nsagens---dicas veja no help do delphi MessageDlg function abraço

fiz o teste aqui com o exemplo do link, está funcionando ... então verifique onde voce está errando. abraço

exemplo procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_TAB then ShowMessage('A tecla TAB foi pressionada'); if Key = VK_BACK then ShowMessage('A tecla Backspace foi pressionada'); if Key = VK_SNAPSHOT then ShowMessage('A tecla Print Screen foi pressionada'); end; obs: Se estiver testando as teclas diretamente no formulário, lembre-se de definir sua propriedade KeyPreview para true. demais teclas, veja: http://www.arquivodecodigos.net/arquivo/re...as_virtuais.php abraço

voce pode usar um componente do RXLib chamado SecretPanel esse componente rola um texto tanto na horizontal como na vertical ( no seu caso seria horizontal ) então com um botão voce aciona o play desse componente para que o texto começe a rolar, depois voce pode montar um código para que conforme as palavras forem sendo passadas na tela elas sejam faladas a clicar outro botão voce aciona o stop, e guarda a ultima posição da palavra dentro texto do memo, e ao clicar o play, começa a rolar novamente a partir dessa ultima posição. com alguma alteração no código, voce pode ainda fazer com que ao ser clicado o stop, ele continue rolando o texto até encontrar um ponto final no texto abraço

mude para: MessageDlg('O registro foi salvo com sucesso', mtInformation, [mbOk], 0); abraço

quando voce instala uma placa de fax modem, ela possui um dispositivo de som para que voce possa utilizar um microfone com ela... veja no painel de controle ( som ), voce vai notar que existem 2 dispositivos de som instalados... um é o som da placa mãe ( ou outra placa de som que esteja instalada ), e o outro é da placa de fax modem ( deve estar setado como padrão ) e se a placa não estiver funcionando, não haverá som ( basta alterar o dispositivo ) OBS: leve em consideração tambem a possibilidade da placa de fax modem estar com alguma pane abraço

dê um exempo mais detalhado, para poder entender o que voce esta querendo abraço