Churc

Opa Menu Project > Options ai voce vai ver o icone, clique em Load Icon e pronto. abs

Opa Tipo isso? http://scriptbrasil.com.br/forum/index.php?showtopic=111884 abracos

Opa então aqui fica na paleta Additional... Pelo que recordo voce usa Delphi versao inferior a 5 né, deve ser por isso! Certo? Ah outras maneiras de fazer isso, dando um hook nas mensagens que vai pro programa, mas da bem mais trabalho... abs

Opa Coloque no seu programa um componente TApplicationEvents da paleta Additional Nele no evento OnMinimize voce coloca Hide; e pronto, quando você chamar o Application.Minimize o programa vai minimizar e sumir igual MSN e tal abracos

Opa Salva por cima sim, no caso voce pode adaptar um codigo para fazer igual o Windows faz Da uma olhada neste tópico http://scriptbrasil.com.br/forum/index.php...;hl=GetFileName abracos

Function isFolderEmpty(szPath: String): Boolean; var res: TSearchRec; begin szPath := IncludeTrailingBackslash(szPath); Result := (FindFirst(szPath + '*.*', faAnyFile - faDirectory, res) <> 0); FindClose(res); end; if isfolderempty('C:\Minha Pasta') then Pasta esta vazia ou não existe else a pasta existe e não esta vazia so que voce não deve passar nenhum arquivo no caminho, já que ele vai checar se existem arquivos nela, resumindo, se ela esta vazia... abracos

Image1.Picture.SavetoFile('Caminho\nome.bmp');

Opa levando em consideracao que dm = TDataModule tb_Agendamento = TTable faltou voce passar antes de Value o nome do campo que vai receber os valores do CheckListBox exemplo dm.tb_agendamento.MeuCampo.Value := CheckListBox1.Items.Names; abracos

Opa A Funcao CopyFile() faz parte da API do Windows, como foi escrito em C então utiliza o formato PChar neste caso voce teria que ter dado cast na String, não sei nem como compilou rs var ArqOrigem, ArqDestino: String; begin ArqOrigem := 'C:\teste.txt'; ArqDestino := 'S:\teste.txt'; if CopyFile(PChar(ArqOrigem), PChar(ArqDestino), False) then ShowMessage('Arquivo copiado com sucesso!') else ShowMessage('Falha ao tentar copiar o arquivo.'); end; abracos

Opa O seu Free esta dentro do seu While o que significa que quando voce der o While ele já vai limpar determinada coisa da memoria, e assim dar erro tente assim Table1.Refresh; Table1.First; // vai para o início da tabela While not Table1.eof do begin if (UpperCase(Table1STATUS.AsString) = 'SIM') then begin CLIENTES:=EditCnpjPag.text; Arq_jpg:=EditNomeGuerra.text+'.jpg'; Aguarde.caption:=EditRazaoSocial.text+' - '+EditCnpjPag.Text; // TXT := 'Select sigla_ctrc, situacao_ctrc, data_emissao, '+ 'kg_calculo, valor_n_fiscal, frete_peso, frete_valor, '+ 'vlr_icms, despacho, valor_frete, contador '+ 'FROM CTRC Where (SITUACAO_CTRC <> "C") Order by Data_Emissao'; //COMO PAGADOR aguarde.visible:=true; aguarde.Update; Form3.Query1.Close; Cursor := crDefault; Form3.Query1.SQL.Text := Txt; Cursor := crSQLWait; Form3.Query1.Open; Application.ProcessMessages; // TXTMeses := 'SELECT sum(KG_CALCULO) as TOTPESO, '+ 'sum(VALOR_N_FISCAL) as TOTVM, '+ 'sum(FRETE_PESO) as TOTFPESO, '+ 'sum(FRETE_VALOR) as TOTFVALOR, '+ 'sum(DESPACHO) as TOTDESPACHO, '+ 'sum(VLR_ICMS) as TOTICMS, '+ 'sum(VALOR_FRETE) as TOTFRETE, '+ 'sum(CONTADOR) as TOTQTDCTRC '+ 'FROM CTRC '+ 'where extract(month from DATA_EMISSAO)=:pMes '+ 'and extract(year from DATA_EMISSAO)=:pAno '+ 'and (SITUACAO_CTRC <> "C") '+ 'and PAG_cnpj=:pCliente '; Form3.QRYMESES.SQL.Text := TxtMeses; Application.ProcessMessages; // FORM3.CLIENTE.Caption:='Cliente: '+EditRazaoSocial.text + ' - Cnpj/Cpf: '+EditCnpjPag.Text+' - CLIENTE PAGADOR'; Form3.quickrep1.Prepare; QrpToImg_Aut(FORM3.QuickRep1,'C:\DADOS\',1); //Exporta o Quick para JPG Application.ProcessMessages; end; //END IF TABLE Table1.Next; end; //END WHILE free; //FREE FORA DO WHILE... MAS PRA Q ESSE FREE? oO Timer1.Enabled:=false;//desativa contador Showmessage('OK... PROCESSADOS TODOS OS CLIENTES'); end; abracos

Opa Amigo, utilize a busca do forum em Pesquisar ali emcima e procure por CSV CSV = Comma Separated Values ou Valores Separados por Ponto e Virgula Voce vai encontrar bastante coisa... abracos

Opa Da uma olhada neste tópico. abraços

Opa Amigo, da uma pesquisada na busca do fórum, procura por CSV Comma Separated Values que é o nome que se da a este processo. Vai encontrar bastante tópicos, se houver dúvidas poste aqui... abraços

Opa Tem sim, basta voce passar o caminho CopyFile(PChar('Caminho do arquivo de origem'), PChar('Caminho do arquivo de destino')), False); abracos

Opa Basta trocar o tipo para TBitBtn e utilizar a propriedade Glyph uses Buttons; procedure TForm1.FormCreate(Sender: TObject); var Button : TBitBtn; i, a, b : Integer; begin a := 10; b := 40; For i := 1 To 6 do begin Button := TBitBtn.Create(Self); With Button do begin Top := a; Left := b; Parent := Form1; Caption := 'Botão ' + IntToStr(i); Glyph.LoadFromFile('C:\Glyph.bmp'); end; a := a + 30; // 06 botoes na vertical //b := b + 75; // 06 botoes na horizontal end; end; abracos

Opa Realmente, se você é leigo é muito difícil para você querer trabalhar com Muti-Threading Como mencionou o Jhonas, comece primeiro com coisas pequenas, como um Chat, ai você vai aprender o que é Socket, portas, como enviar e receber textos, etc abraços

Opa Enviei para seu email. abraços

Opa Da uma olhada naquele post que eu anexei o arquivo, eu troquei para o de formato .RAR abraçx

Opa Então, pelo fato de você ser iniciante eu respeito, mas o fórum é de ajuda e no seu caso você não está pedindo ajuda com uma dúvida e sim praticamente pedindo pra alguém fazer pra você... O componente INDY que vem na maioria das versões do Delphi possue componentes para gerenciamento de email... Da uma pesquisada no fórum também sobre envio de emails, etc abraços

Opa Realmente, é um erro do fórum... qualquer arquivo .ZIP quando tiver pastas dentro da este problema... Vou zipar em .RAR agora, problema é que eu tinha deletado os exemplos vou tentar recuperar deste arquivo zipado rs Faça o download novamente como .RAR abraços

Que? ahahuahua ivan tem coisas fera que só você entende da maneira que escreve... porque as outras pessoas nem sequer imaginam o que você está fazendo rs Da pra entender mais ou menos mas o ideal é você explicar o que você quer fazer... abraços

Opa Fiz um exemplo bemm básico... Na verdade, o que fiz foi passar o programa de Console (MS-DOS) para form, usei um Memo para mostrar na tela como se fosse um DOS... O que você tem a fazer agora é adaptar as suas necessidades... abraços OPCForm.rar

Opa Sim, basta você fechar todos os componentes Zeos, dar Disconnect no Zeos Connection já basta. Se não bastar, feche as Zeos Query com um Active := False; ZeosConnection1.Disconnect; ZeosQuery1.Active := False; abraços

Opa auhuahuha me desculpa, na verdade Float não se declara como Float rsr Troque os var N1, N2: Float por var N1, N2: Real; rs o resto você deixa como está, e na divisão você deixa a / mesmo ao invés de div abraços

Opa Seguinte, primeiro que não se deve utilizar Integer para se fazer calculadora, porque se o resultado não for um Inteiro então vai dar um erro, o ideal é utilizar Float O correto seria procedure TForm1.Button2Click(Sender: TObject); var N1, N2: Float; begin N1 := StrToFloat(Edit1.Text); N2 := StrToFloat(Edit2.Text); Label1.Caption := FloattoStr(N1 / N2); end; abraços