Kikonanet

Olá Ricardo, Use a função da API do Windows SetFileAttributes() para ocultar o arquivo. procedure TForm1.Button1Click(Sender: TObject); begin Windows.SetFileAttributes('C:\meuarquivo.txt', FILE_ATTRIBUTE_HIDDEN); end; Mas acho que este link irá resolver sua dúvida http://scriptbrasil.com.br/forum/index.php...topic=47048&hl= Abs. Kiko

Olá Annelise, Segue um link com mesmo assunto. http://scriptbrasil.com.br/forum/index.php...=58482&hl=email Está ocorrendo algum erro? Abs. Kiko

Ae galera, Toda vez que vou anexar um arquivo a uma mensagem, o outlook trava. Abre a tela de anexar arquivo e fica travado. Alguém sabe o que pode ser?? Meu Office é o 2000 Abs. Kiko

Olá, Declare a Unit DB; Uses DB; qualquer coisa posta ae. Abs. Kiko

Tópico fechado. qualquer coisa manda uma MP para reabrir! Abs. Kiko

Olá Fernanda, Como você está passando os parâmetros? Segue alguns links de como passar parâmetros no RAVE. http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=702 http://www.delphibr.com.br/artigos/param_rave.php Espero q te ajude. qualquer coisa posta ae. Abs. Kiko

Olá Éder, Como o V&A disse, só faltava fechar o parênteses! WinExec(PChar('c:\arquivos de programas\winzip\winzip32.exe' + ' -min -a -r "'+ 'c:\T.zip' + '" ' + 'c:\teste.txt'),sw_ShowNormal); Abs. Kiko

Olá Éder, Dê uma olhada neste link. http://scriptbrasil.com.br/forum/index.php...ic=54970&hl=zip qualquer coisa posta ae. Abs. Kiko

Aqui fica melhor. Abs. Kiko

Olá V&A, Eu uso esse código. Acho que dá pra você adaptá-lo. if ADOQuery.Locate('Fornecedor',copy(EditFornecedor.Text,1,EditFornecedor.SelStart),[loCaseInsensitive,loPartialKey]) then begin EditFornecedor.OnChange := nil; // Não ativar o evento agora. Aux := EditFornecedor.SelStart; // Posição do cursor no EditFornecedor EditFornecedor.Text := ADOQryForn.FieldByName('Fornecedor').AsString; // Foi o que encontramos pois o codigo só passa por aqui se existe a informação EditFornecedor.SelStart := Aux; // Atualizamos a posição do cursor. EditFornecedor.OnChange := EditFornecedorChange; // Agora podemos chamar novamente. end; Abs. Kiko

Tópico resolvido, tópico fechado Abs. Kiko

Ok, estarei enviando Se mais alguém quiser me manda um e-mail. Abs. Kiko

Olá, porque você não usa um DBGrid?? Abs. Kiko

Olá, Vamos lá... - Adicione um StringGrid e um CheckBox; - Coloque ChekBox Visible:=False; procedure TForm1.CheckBox1Click(Sender: TObject); begin ShowMessage('O q fazer??'); end; procedure TForm1.FormCreate(Sender: TObject); begin StringGrid1.Cells[0,0] := 'FIXO'; StringGrid1.Cells[1,0] := 'Id'; StringGrid1.Cells[2,0] := 'Nome'; StringGrid1.Cells[3,0] := 'Idade'; StringGrid1.Cells[4,0] := 'Admin'; AdicionarCheckBoxes; //rotina que adiciona os Check end; procedure TForm1.AdicionarCheckBoxes; var i: Integer; NovoCheckBox: TCheckBox; begin limpaBuffer; //é bom não esquecer de limpar controles não utilizados for i := 1 to StringGrid1.RowCount do begin StringGrid1.Cells[0,i] := IntToStr(i); StringGrid1.Cells[1,i] := 'A'; StringGrid1.Cells[2,i] := 'B'; StringGrid1.Cells[3,i] := 'C'; NovoCheckBox := TCheckBox.Create(Application); NovoCheckBox.Width := 0; NovoCheckBox.Visible := false; NovoCheckBox.Caption := 'OK'; NovoCheckBox.Color := clWindow; NovoCheckBox.Tag := i; NovoCheckBox.OnClick := CheckBox1.OnClick; //Associar um evento OnClick já existente para o Novo CheckBox NovoCheckBox.Parent := Form1; StringGrid1.Objects[4,i] := NovoCheckBox; StringGrid1.RowCount := i; end; AlinhaCheck; // agora vamos alinhar o check na celular end; procedure TForm1.AlinhaCheck; var NovoCheckBox: TCheckBox; Rect: TRect; i: Integer; begin for i := 1 to StringGrid1.RowCount do begin NovoCheckBox := (StringGrid1.Objects[4,i] as TCheckBox); if NovoCheckBox <> nil then begin Rect := StringGrid1.CellRect(4,i); // aqui descobrimos a posição da celula para utilizarmos no check NovoCheckBox.Left := StringGrid1.Left + Rect.Left+2; NovoCheckBox.Top := StringGrid1.Top + Rect.Top+2; NovoCheckBox.Width := Rect.Right - Rect.Left; NovoCheckBox.Height := Rect.Bottom - Rect.Top; NovoCheckBox.Visible := True; end; end; end; procedure TForm1.Limpabuffer; var NovoCheckBox: TCheckBox; i: Integer; begin for i := 1 to StringGrid1.RowCount do begin NovoCheckBox := (StringGrid1.Objects[4,i] as TCheckBox); if NovoCheckBox <> nil then // o objeto deve existir para poder ser destruído begin NovoCheckBox.Visible := false; StringGrid1.Objects[4,i] := nil; end; end; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if not (gdFixed in State) then AlinhaCheck; end; qualquer coisa posta ae. Abs. Kiko

Olá, Me passa seu e-mail q te envio! Abs. Kiko

Olá McBlade, Coloque um StringGrid e um CheckBox. Coloque o CheckBox com Visible:=False; No Evento OnDrawCell do StringGrid, coloque esse código: procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); const IsChecked : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); var DrawState: Integer; DrawRect: TRect; begin if (gdFocused in State) then begin CheckBox1.Left := Rect.Left + StringGrid1.Left + 2; CheckBox1.Top := Rect.Top + StringGrid1.top + 2; CheckBox1.Width := Rect.Right - Rect.Left; CheckBox1.Height := Rect.Bottom - Rect.Top; CheckBox1.Visible := True; end; end; Obs.: Eu não testei. qualquer coisa posta ae. Abs. Kiko

Olá, Você pode usar a função CopyFile('Origem','Destino',False). Ex: CopyFile('C:\aa.txt','B:\backup\aa.txt',False); http://scriptbrasil.com.br/forum/index.php?showtopic=58995 qualquer coisa posta ae. Abs. Kiko

Olá Annelise, Só para constar um link com o mesmo assunto! http://scriptbrasil.com.br/forum/index.php...=58482&hl=email Abs. Kiko

Olá, Segue um exemplo básico var Form1: TForm1; Calc: Real; Funcao: string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:= Edit1.Text + '1'; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit1.Text:= Edit1.Text + '2'; end; procedure TForm1.Button3Click(Sender: TObject); begin Edit1.Text:= Edit1.Text + '3'; end; procedure TForm1.ButtonSomaClick(Sender: TObject); begin Calc:=StrToFloat(Edit1.Text); Funcao:='+'; Edit1.Text:=''; end; procedure TForm1.ButtonIgualClick(Sender: TObject); begin if Funcao = '+' then Calc:=Calc + StrToFloat(Edit1.Text); if Funcao = '/' then Calc:=Calc / StrToFloat(Edit1.Text); Edit1.Text:=FloatToStr(Calc) end; procedure TForm1.ButtonDivisaoClick(Sender: TObject); begin Calc:=StrToFloat(Edit1.Text); Funcao:='/'; Edit1.Text:=''; end; qualquer coisa posta ae. Abs. Kiko

Olá, Dê uma olhada neste link http://www.efg2.com/Lab/Library/Delphi/ADO...thwind/#DBImage Abs. Kiko

Olá Giovani, Na minha opinião eu aconselho você salvar as fotos em uma pasta e guardar no banco de dados o caminho das fotos! qualquer coisa posta ae. Abs. Kiko

Isso mesmo. Obs: MonthsBetween Abs. Kiko

Marcelo, você pode usar essa função que te retorna uma string DateToStr(now); Abs. Kiko

Olá, Ae não entendi direito o que você quer fazer. Explica melhor ae... Abs. Kiko

Marcelo, Tenta assim Edit1.Text := IntToStr(DaysBetween(StrToDate( '01/01/2001' ), StrToDate( '05/05/2003' ))); Abs. Kiko