Silva~

var Tempo : TTIME; begin Tempo := StrToTime('00:10:00'); while tempo <> STrToTime('00:00:00') do begin Label1.caption := Timetostr(StrToTime('00:10:00') - Tempo); Sleep(1000); Application.ProcessMessages; Tempo := Tempo - StrToTime('00:10:00'); end; Estou com problemas , não esta contando.... ele para a contagem e esta dando uma lerdeza na aplicacao incrivel... Como posso resolver ? O que eu quero e fazer um contador , que conte ate 10 minutos e zere.... e retorne a contar depois....

já consegui resolver Obrigado

Aqui e quando abre ele salva , não se esta correto fiz na pressa , então ele le a entrada , se for = 0 não ira abrir criei um loop , se i = 0 então o x ira fazer com que leia o que esta no ini e acrescente +1 na entrada e verifique se o i = 0 se for = 0 então , ira abrir a form normalmente Acho que esta tudo certo , não sei se errei em algo... procedure nklSalva; var dir : string; x,i : integer; begin dir := ChangeFileext(Application.ExeName,'.nkl'); meuini := Tinifile.Create(dir); x := meuini.writeinteger('Config','Entrada',0) for i:= 0 to x do begin meuini.readInteger('Config',inttostr(i+1),x); form2.ShowModal; end; meuini.free; end; Aqui e a mesma coisa , segue o mesmo principio se for = 1 então não ira abrir a form2 e so ira abrir a form1 Abracos procedure nklCarrega; var dir : string; x,i : integer; begin dir := ChangeFileext(Application.ExeName,'.nkl'); meuini := Tinifile.Create(dir); x := readinteger('Config','Entrada',1); for i:=1 to x do begin dir := meuini.ReadString('Secao',IntToStr(i),''); if FileExists(dir) Then form2.hide; form1.ShowModal; end; meuini.Free; end; end;

Bom , o que eu quero fazer e um sistema que ficara no meusistema.config O que eu quero fazer e ao abrir minha form ira abrir a Form de configuracao , então eu irei na minha form de configuracao , configurar o programa. E apos isso ira abrir minha Form2 que e a form do programa. So que se toda vez que eu abri o programa tiver que configurar ira ficar chato , como eu poderia fazer isso para que eu abra apenas uma vez a form de configuracao e apos isso abrir normalmente e aparecer a form2. Pensei em tentar fazer isso com o INI , so que não sei como irei fazer para verificar se já abri e configurei e apos abrir de novo esteja tudo , correto. Outra duvida e como eu faco para o meu programa , abrir so se estiver na pasta Sistema. Lembrando de que o diretorio pode variar em C , D e que o procedimento indentifique normalmente.... procedure TForm2.FormCreate(Sender: TObject); begin If not fileexists(Edit2.text) then if messagedlg('Voce Precisa por o Programa na pasta sistema', mtError, [mbok], 0) = mrok then Application.Terminate; begin if fileexists(Edit2.text) then Application.Initialize; end; end; Eu tentei fazer assim , porem não tive o resultado que eu quero.... Espero que voces tenham entendido e que possam me ajudar obrigado

MS VC++ 8 alguém teria link para download do MS VC++ 8 ? Obrigado

Quero adicionar em ordem , descricao , address , valor , tipo E assim vai .....

Ola , Boa noite xD Bom , minha duvida e a seguinte eu tenho um Tlistview e nesse listview eu tenho 4 colunas separadas. A B C D No caso eu criei um edit para cada coluna e ao adicionar , irei adicionar cada edit a respesctiva coluna exemplo A = Valor b = nome c = endereco = d telefone Evento OnClick Irei adicionar tudo a minha listview mas isso em 1 linha apenas , se eu quiser adicionar outro , ira adicionar na linha de baixo.. Meu problema e quanto a ordenacao da listview em relacao a adicao para que adicione tudo corretamente as 4 colunas e depois adicione na de baixo e assim sucessivamente. Qualquer duvida sobre a minha duvida estarei tentando explicar melhor... Obrigado

E se por acaso eu tenho essa , minha.dll E eu tenho o arquivo meu.exe E esse arquivo abre varias dlls , e no caso eu pus ele para abrir somente a minha.dll e não qualquer outra dll.. Ai surge alguém e renomea outra dll para minha.dll e tenta abrir com meu.exe... Como poderia dar um jeito nisso ? Pegando o width , height , top , left e hash md5 da minha dll e configurando para ele aceitar somente a minha ?

Va no webbrowser1 e procure NewWindow Essa opcao e quando e aberto uma nova janela apartir do webbrowser então partindo disso e so voce por label1.enabled := true; Quando a nova janela e aberta a label ativa.... Simples Obrigado jhonas

Gostaria de poder detectar se minha , minha.dll for alterada para x.dll ou qualquer outro nome. Se for alterada então exibir mensagem de erro e não abrir a dll. So quero protege-la contra renomeacao como posso fazer isso ? A um modo ? Obrigado

Resolvido De um modo muito mais facil , que eu descobri aqui Obrigado

já procurei e não achei o que eu queria No caso eu tentei usar GetAsyncKeyState e MouseMove , pegando o centro do webbrowser , quando e feito o click... Porem não obtive resultado =/ procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin //Coordenadas para pegar o momento do clique no browser.... if (X>0) and (X<200) and (Y>100) and (Y<200) then slabel1.Enabled := true; end; procedure TForm1.ttTimer(Sender: TObject); begin if GetAsyncKeyState(VK_LBUTTON) > 0 then slabel1.enabled := true; end;

não a solucao para a minha duvida eu já procure , eu não quero simular um click , eu so quero que o programa Muda minha label de enabled = false para true Quando eu clicar com meu mouse na url que esta no webbrowser.navigate(''); Vai aparecer o site eu vo clicar e apos clicar quero alterar o enabled da label.... não sei como faria isso se usuario , webbrowser.oledocument.forms('').click; ou algo do genero...

Ola a todos, E o seguiente eu tenho um programa que abre 'http://www.xxx.com/xxxx/anu1.html'); esse html possui uma divulgacao. No caso ao abrir o programa a pessoa tera que clicar nessa divulgacao para a label2 sair de modo enabled = false e ir para true... Porem , como faco essa detectacao de click , e vejo que ao clicar exatamente no .html ira liberar a label.... Aguardo a ajuda , se não entenderam , eu posso explicar novamente.... Obrigado

Bom no caso eu gostaria de fazer um programa que para a pessoa poder entrar no programa precisara clicar 3x no anuncio do googleadsense no caso <script type="text/javascript"><!-- google_ad_client = "pub-1000066807522152"; /* 300x250, criado 21/02/10 */ google_ad_slot = "1283099616"; google_ad_width = 300; google_ad_height = 250; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> Apos clicar 3x ira liberar o botao para abrir o programa Eu tentei um codigo aqui , porem não tive sucesso na finalizaçao do codigo Usei 1 WebBrowser e 2 botoes Um para clicar e outro como contagem Eu aperto no botao 1 e ira aparecer o anuncio no webbrowser , irei clicar no webbrowser e o botao que esta com a contagem de 3 ira para 2 ate chegar em 0 e liberar o enabled espero que tenha entendido Obrigado e desculpe qualquer coisa :)

var Form1: TForm1; canberead:MEMORY_BASIC_INFORMATION; SystemInfo: SYSTEM_INFO; startaddress,endaddress,eaddress:dword; PageSize:cardinal; temp:dword; data:Array[0..004000] of dword; scan:integer; PidHandle:Thandle; PidID : integer; Const ProgramName='PINBALL.EXE'; function GetProcessID(Const ExeFileName: string; var ProcessId: integer): boolean; implementation {$R *.dfm} function GetProcessID(Const ExeFileName: string; var ProcessId: integer): boolean; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result := false; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if (StrIComp(PChar(ExtractFileName(FProcessEntry32.szExeFile)), PChar(ExeFileName)) = 0) or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0) then begin ProcessId:= FProcessEntry32.th32ProcessID; result := true; break; end; ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; procedure TForm1.Button1Click(Sender: TObject); begin if GetProcessID(ProgramName, PidId) then begin startaddress:=($00400000); endaddress:=($7FFFFFFF); eaddress:=startaddress; GetSystemInfo(SystemInfo); PageSize:=Systeminfo.dwPageSize; scan:=0; PidHandle := OpenProcess(PROCESS_ALL_ACCESS,False,PidId); repeat if ReadProcessMemory(PidHandle, Pointer(eaddress),@data,PageSize,temp)=false then begin Virtualqueryex(PidHandle,pointer(eaddress),canberead,PageSize); ReadProcessMemory(PidHandle, Pointer(canberead.BaseAddress),@data,canberead.RegionSize,temp); end; repeat if data[scan]=strtoint(value.Text) then begin Foundlist2.InsertRow(inttostr(scan+eaddress),Edit1.Text,true); end; scan:=scan+1; until scan=PageSize+1; until eaddress=endaddress+1; end; end; end; [Warning] Unit1.pas(87): Comparing signed and unsigned types - widened both operands [Error] Unit1.pas(89): Undeclared identifier: 'InsertRow' Estou com esses problemas Ve se voce concorda com codigo acima abraços

No caso acima e mais para trainers , no caso agora , os trainers são feitos por DLL , não e mais quase usado Read and WriteProcess E no meu caso não e um trainer , eu quero pelo processo captado lista os adress da memoria Estou tentando usando VirtualAloc Pois no caso sera necessario para obter os valores 4 bytes e listar os values 4 bytes de um determinado valor Por exemplo 0 Ai ira listar os adress da memoria que contenha esse valor , e ir diminuido ate achar o menor valor

E seria para jogos off lines do windows, tipo Pinball , para editar o valor do Score por exemplo E mais para aprendizado , entende ? No caso no programa eu selecionaria o processo E daria scan no valor do Score do pinball , e acharia o adress para o valor , e editaria ele botando um value como 999999 entendeu ? e obrigado pela ajuda jhonas

Eu sei que não pode pedir ajudar , mais e uma coisa mais como informação http://www.sendspace.com/file/o26ibk Estou querendo iniciar no Crack e etc e tem esse simples programinha , meu objetivo e por a label em 999999 Porem vo explicar como o programa funciona , ate onde eu entendi 2 variáveis encriptadas guardando o score e conferindo-o antes de apagar a label e depois de criar além disso, um sistema no onmousemove do Form, pra verificar se o timer tá on uma verificação no formactivate pra ver se o timer foi criado ele sempre quando passa um segundo , ou seja , quando o número troca (UHUL , HORA DO SCAN) o infeliz APAGA a label e cria outra (aeeaeeaeaeaeeeeeeeaeaeee) Tentei esses 5 ae , so sobrou Assembler , Ollydbg ;) Esse e um bom programa para quem esta iniciando , se voce puder resolver e me passar a soluçao , ficarei agradecido Rodrigo Obrigado e desculpe o incomodo mano Gogogo ;)

Fiz de acordo com tutorial , porem o prorgama congela :s fica lerdo E não consigo enviar Quais são as configuraçoes para o GMAIL no IDSMTP ? smtp.gmail.com e mail senha e port ?

O progama e o seguinte e uma dll e essa dll , faz o seguinte , apos injetada num determinado processo eu quero listar todos os adress em 4 bytes de um determinado valor. E listar num memo Seria 2 botoes 1 memo e 1 edit e 1 radiobutton Eu selecionaria a opçao 4 bytes e por exemplo botaria 1 no Edit e então scaneava , e iria aparecer os "adress" para aquele valor no memo. Porem no caso tera 2 botoes para fazer o scaneamento , 1 sera para o 1 primeiro scan o First Scan o segundo sera apos o first scan que sera o Next Scan. Eu sei que para fazer isso usarei PBYTE porem não sei qual linha de codigo que devo segui Eu sei que e meio complicado , porem estou com algumas dificuldades. abraços

Poderia mostrar como que ficaria então ? não estou conseguindo passar Eu so quero captar o processo selecionado na label Process.GetProcessById(IDsList[listBox.SelectedIndex]); label2.Text = listBox.SelectedIndex; e na outa so quero captar tambem o numero de processos abertos label3.Text = ConvertToString(listBox.Items.Count); WriteTheList();

No caso e uma tabela de Adress , no caso e 1 Memo 3 botoes 1 Botao para Adicionar 1 Botao para Remover 1 Botao para Editar Usei 1 Checklistbox1 Used: Array of Array of string; i : string; Estou meio com duvida no ultimo botao o de Editar //Editar procedure TForm1.BitBtn2Click(Sender: TObject); begin for i:=0 to CheckListBox1.Items.Count-1 do begin if CheckListBox1.Selected[i] then begin if Used[i,3] = '1' then begin // Cheguei aqui e parei , não sei como continuar para Editar um determinado lugar da minha CheckList // são 3 espaços na Check list Valor , Adress , Nome end; end; end; end; end;

não tem como ver o que de errado com meu codigo não ? =/ Quero incluiir as edits e memo , por isso , fiz desse jeito , não achei nenhum tuto ou explicaçao para incluir

Antes de compilar da isso , eu já ajeitei as labels agora ta dando isso }