Jhonas

Instale o dcltqr70.bpl e aparecerá o quickreport na paleta de componentes abraço

{ Mantém pressionada CTRL } keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); { Libera (solta) CTRL } keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); abraço

Seguindo a idéia do Douglas_Soares de 2 cliques no seu ClientDataSet, depois clique no field desejado, e em DisplayFormat e em EditFormat coloque: ,0.0000;-,0.0000 abraço

Douglas... reveja o seu código uses registry; procedure TForm1.Button1Click(Sender: TObject); var regi : TRegistry; s : string; begin regi:=tRegistry.Create; With Regi do Begin rootKey:=HKEY_LOCAL_MACHINE; OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\zero',false); s:=ReadString('ProcessorNameString'); CloseKey; end; Label1.Caption:= 'Processador: '+ s; end; OBS: Onde esta escrito zero coloque o algarismo zero abraço

Não é necessário... o windows gerencia individualmente cada perfil de usuário abraço

Uma vez que voce esta inserindo um registro, a sua tabela esta em modo de edição ... se antes de dar o post voce quer verificar se o registro já existe, então faça o teste na saida do Edit usando uma cópia do seu select em outro componente exemplo: No Evento OnExit do Edit ou outro que esteja usando coloque procedure TForm1.Edit1Exit(Sender: TObject); begin if modulo.cds_tabelaX.recordcont = 0 then begin // rotina para salvar o registro] modulo.cds_tabela.Post; modulo.cds_tabela.ApplyUpdates(-1); end; else begin showmessage('Registro já existente !'; modulo.cds_tabela.Cancel; exit; end; end; OBS: Crie um outro grupo de componentes ( modulo.cds_tabelaX ) somente para testar o registro na hora da inserção ou se preferir use um campo indexado que, ai sua tabela não aceitará registros duplicados abraço

modulo.cds_tabela.Cancel; abraço

Bem simples procedure TForm1.Button1Click(Sender: TObject); var x : double; begin x := now; ShowMessage('Data = ' + FloatToStr(x)); end; abraço

Outra alternativa http://scriptbrasil.com.br/forum/index.php...st&p=447103 abraço

Douglas ... de vez em quando é bom fazer uma busca no forum... rs http://scriptbrasil.com.br/forum/index.php...st&p=447208 abraço

Amigo .. se voce fizer uma busca no forum, encontrará a solução para as suas dúvidas ... procure pela palavra Memo abraço

[ Voce pode alterar para colocar um Combobox no lugar do listview Voce precisa se aprimorar na leitura do delphi para achar mais facilmente os erros unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ListView1: TListView; procedure Button1Click(Sender: TObject); procedure ListView1DblClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses TLHelp32; procedure TForm1.Button1Click(Sender: TObject); var i: Integer; bContinue: BOOL; NewItem: TListItem; aSnapshotHandle: THandle; aProcessEntry32: TProcessEntry32; begin ListView1.Items.Clear; aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); aProcessEntry32.dwSize := SizeOf(aProcessEntry32); bContinue := Process32First(aSnapshotHandle, aProcessEntry32); while Integer(bContinue) <> 0 do begin NewItem := ListView1.Items.Add; NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile); NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4)); NewItem.subItems.Add(aProcessEntry32.szExeFile); bContinue := Process32Next(aSnapshotHandle, aProcessEntry32); end; CloseHandle(aSnapshotHandle); end; procedure TForm1.ListView1DblClick(Sender: TObject); var Ret: BOOL; PrID: Integer; // processidentifier Ph: THandle; // processhandle begin with ListView1 do begin if MessageDlg('Voce gostaria de finalizar ' + ItemFocused.Caption + '"?' + ^J + 'É possivel que cause instabilidade ao sistema ao sair' + ^J + 'control......', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin PrID := StrToInt('$' + ItemFocused.SubItems[0]); Ph := OpenProcess(1, BOOL(0), PrID); Ret := TerminateProcess(Ph, 0); if Integer(Ret) = 0 then MessageDlg('Não pode finlizar' + ItemFocused.Caption + '"', mtInformation, [mbOK], 0) else ItemFocused.Delete; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.ViewStyle := vsReport; Button1.Click; end; end. abraço

Compre um cabo adaptador usb para hd ata ( media R$ 70,00 ) http://images.quebarato.com.br/photos/big/C/9/2464C9_3.jpg http://images.google.com.br/imgres?imgurl=...Dpt-BR%26sa%3DG abraço

Acho que voce vai achar algo parecido em um dos posts do ROBINHOCNE abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ite=findreplace abraço

OBS: Não é uma boa prática... pois o erro passando desabercebido pode causar outros. abraço

Agora estou sem tempo para te ajudar ... quem sabe outro colega possa ajudá-lo abraço

Não será porque voce esqueceu de colocar uses Registry; abraço

Um exemplo que voce pode adptar as suas necessidades uses TLHelp32 {importante}; var aSnapshotHandle: THandle; aProcessEntry32: TProcessEntry32; implementation procedure TForm1.BtnRefreshClick(Sender: TObject); var i: Integer; bContinue: BOOL; NewItem: TListItem; begin ListView1.Items.Clear; aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); aProcessEntry32.dwSize := SizeOf(aProcessEntry32); bContinue := Process32First(aSnapshotHandle, aProcessEntry32); while Integer(bContinue) <> 0 do begin NewItem := ListView1.Items.Add; NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile); NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4)); NewItem.subItems.Add(aProcessEntry32.szExeFile); bContinue := Process32Next(aSnapshotHandle, aProcessEntry32); end; CloseHandle(aSnapshotHandle); end; procedure TForm1.ListView1DblClick(Sender: TObject); var Ret: BOOL; PrID: Integer; // processidentifier Ph: THandle; // processhandle begin with ListView1 do begin if MessageDlg(Voce gostaria de terminar' + ItemFocused.Caption + '"?' + ^J + 'É possivel que cause instabilidade ao sistema ao sair' + ^J + 'control......', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin PrID := StrToInt('$' + ItemFocused.SubItems[0]); Ph := OpenProcess(1, BOOL(0), PrID); Ret := TerminateProcess(Ph, 0); if Integer(Ret) = 0 then MessageDlg('Cannot terminate "' + ItemFocused.Caption + '"', mtInformation, [mbOK], 0) else ItemFocused.Delete; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin { ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.ViewStyle := vsReport; } BtnRefresh.Click; end; Ou faça uma busca no forum http://scriptbrasil.com.br/forum/index.php...lizar+processos http://scriptbrasil.com.br/forum/index.php...lite=findwindow abraço

Vai encontrar um exemplo com essas funcionalidades neste endereço http://www.invasao.com.br/2009/01/29/tutor...at-no-delphi-7/ abraço

O seu programa está em qual linguagem ? Delphi ?

Se voce usar o Delphi 2005 for .Net , talvez consiga abraço

Se o negocio é somente para alterar o valor da pontuação do pinball tem uma solução mais rapida Abra o Pinball, clique em qualquer lugar do jogo, ai digite no teclado “HIDDEN TEST” sem as ... e depois comesse a mexer a bolinha do pinball com o mouse e fazer quantos pontos quiser ... rs ao faça uma busca no forum pela palavra webcheat ou ponteiros abraço

Entenda que é necessario definir apenas uma vez o indice e abrir o arquivo A leitura do codigo de barra deve ser feita o Exit do Edit Caso a leitura tenha sido ok e o referido produto localizado, então pode ser feito a inclusão do produto em outra tabela ( ex: Vendas ) procedure TForm1.FormActivate(Sender: TObject); begin tbproduto.IndexDefs.Clear; tbproduto.IndexName := 'bycodbarra'; tbproduto.IndexDefs.Update; tbproduto.open; end; procedure TForm1.EditExit(Sender: TObject); begin try tbproduto.FindNearest([trim(EditCodbarra.Text)]); except on EDBEngineError do MessageDlg('Erro na busca! Tente novamente.', mtError, [mbOK], 0); end; end; procedure TForm1.Button1Click(Sender: TObject); begin if EditCodPed.Text='' then begin Showmessage('Escolha Nova Venda, para continuar'); abort; end; tbitem.insert; tbitem['codigo']:= tbproduto['codigo']; tbitem['nome']:= tbproduto['item']; tbitem['Qtd']:= 1; tbitem['vrunit']:= tbproduto['venda']; tbitem['data']:=DateTostr(now); tbitem.post; EditCodbarra.Clear; EditCodbarra.SetFocus; end; abraço

Material para estudo http://www.cni.unc.br/informatica/apostila...e%20Bitmaps.doc http://www.geocities.com/wallstreet/Exchan...hi/delphi_5.htm http://www.inf.pucrs.br/~pinho/CG/Aulas/Op.../MustafaGL.html http://www.edudelphipage.com.br/dicas_text...ia=5&busca= http://www.planetadelphi.com.br/dica/304/d...form-com-canvas http://www.mottaweb.com.br/blog/?p=9&language=pt abraço