Blackleaf

Queria fazer um programa que faça o seguinte: Copie o arquivo que está na pasta do meu projeto cole numa pasta de um jogo para que substitua com o já existente sem precisar confirmar a substituição É que o jogo está dando problema aí eu quero criar tipo um "PATCH" para concerta-lo Ah! E quem puder me ajudar a descobrir a extensão porque o 'TIPO' do arquivo é 'ARQUIVO' :blink:

Me desculpem pelo Double-post, mas é que estou precisando muitíssimo disso.

Sim, mas como faço?

Bom, tem um programa na minha lanhouse que afetou um arquivo do windows, aí tem uma solução que é substituir um arquivo. Então, como não fizemos o backup de algums computadores, porque são mtos jogos imensos, queria saber se posso fazer um programa que substitua o arquivo assim que ele for iniciado, para permitir ao usuário usar o computador sem nenhum problema. Será que dá :huh: ?? Preciso disso o mais rápido possível, se for possível xD

Código .PAS unit fPrincipal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ShellAPI, comobj; const palavrasBloqueia: string = 'MSN,meebo,terra'; type TfrmPrincipal = class(TForm) Timer1: TTimer; listPagSol: TListBox; Label4: TLabel; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmPrincipal: TfrmPrincipal; implementation {$R *.dfm} function BloqueiaURL(url: string): boolean; var ret: boolean; x: integer; strTemp: string; begin //Faz a comparação da url com as palavras q são proibidas ret:=False; strTemp:=''; for x:=1 to Length(palavrasBloqueia) do begin if ((palavrasBloqueia[x] = ',') or (x = Length(palavrasBloqueia))) then begin strTemp:=Trim(strTemp); if Pos(strTemp,url) > 0 then begin ret:=True; Break; end else strTemp:=''; end else strTemp:=strTemp + palavrasBloqueia[x]; end; BloqueiaURL:=ret; end; function GetUrlFromIE(Handle: THandle; List: TStringList): boolean; stdcall; var hWndIE, hWndIEChild : HWND; Buffer : array[0..255] of Char; begin SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0])); hWndIE:=FindWindow('IEFrame', Buffer); if hWndIE > 0 then begin hWndIEChild:=FindWindowEx(hWndIE, 0, 'WorkerW', nil); if hWndIEChild > 0 then begin hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil); if hWndIEChild > 0 then begin hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil); if hWndIEChild > 0 then begin //Pega a URL e trabalha com o valor SendMessage(hWndIEChild, WM_GETTEXT, 255, integer(@Buffer)); if List.IndexOf(Buffer) < 0 then List.Add(Buffer); if BloqueiaURL(LowerCase(Buffer)) then begin //Fecha a janela PostMessage(hWndIE,WM_CLOSE,0,0); //Abre nova janela ShellExecute(hWndIE, nil, PChar('http://www.plic-plac.com'), nil, nil, SW_SHOWNORMAL); end; end; end; end; end; Result:=True; end; procedure TfrmPrincipal.Timer1Timer(Sender: TObject); begin //Será executado a cada 5 segundos EnumWindows(@GetUrlFromIE, LParam(listPagSol.Items)); end; end. No exemplo coloquei três palavras apenas MSN,meebo,terra, caso alguma delas seja digita ele bloqueia e abre nova janela com outra página. Lembrando que funciona somente para o IE. Para fazer o download clique aqui !

Bom eu refiz mas com a propriedade name diferente, a do TButton1 e a do TButton2 e ficou assim: procedure TForm1.btn1Click(Sender: TObject); begin if btn1.Enabled = true then begin btn1.Enabled:=false; btn2.Enabled:=True; btn1.Caption:='OFF'; btn2.Caption:='ON'; end end; procedure TForm1.btn2Click(Sender: TObject); begin if btn1.Enabled = false then begin btn1.Enabled:= True; btn2.Enabled:= False; btn1.Caption:='ON'; btn2.Caption:='OFF'; end end; você mudou na propriedade 'caption' do butão ou 'name' ?

Não entendi muito bem a causa do erro, mas acho que você digitou o codigo errado, no meu ficou assim: procedure TForm1.Button1Click(Sender: TObject); begin if button1.Enabled = true then begin button1.Enabled :=false; button2.Enabled :=true; button1.Caption :='OFF'; button2.Caption :='ON'; end //eu não vi esse "end" no seu codigo end; procedure TForm1.Button2Click(Sender: TObject); begin if button1.Enabled = false then begin button1.Enabled :=true; button2.Enabled :=false; button1.Caption :='ON'; button2.Caption :='OFF'; end //eu não vi esse "end" no seu codigo end; Na parte onde tem: var Form1: TForm1; implementation {$R *.dfm} você adicionou alguma coisa?

Eu tinha um site hospedado nele, mas eu mesmo deletei porque tava sem tempo. Mas achei muito bom o tráfego! Mas infelizmente o site está em manutenção.

Tem o componente Vcl Skins que pode ser encontrado nesse site:www.link-rank.com O componente tem várias skins (inclusive Windows vista), além de possibilidade de montar você mesmo a sua propria skin. Obs: É demonstração ;) Olhe uma skin do windows vista num aplicativo feito em Delphi http://www.link-rank.com/vista.htm

Hey Jhonas! Acho que a lógica do código está certa, mas eu não estou conseguindo um boa qualidade, fica piscando quando eu passo o mouse por cima do botão, já até tentei mudar para Gif, e diminuir o sleep (até mesmo tirar), mas ainda fica o tal "pisca-pisca" e ainda as vezes trava o botão e fica numa imagem só (questão de segundos). O que eu poderia fazer para parar esse "pisca-pisca" ?

Bom eu estava montando um programa aí para "incrementar" eu decidi botar um efeito OnMouseMove. Aí eu sei que para botar esses efeitos assim eu preciso colocar num Bitbtn que já tem a sua propriedade para imagens nele. Aí eu queria saber que comando eu posso usar para quando eu passar o mouse em cima do bitbtn ele mudar a imagem de dentro (estilo os navegadores feitos em delphi).

Muito obrigado Jhonas! eu sabia + ou - que era para fazer isso, mas n tive confiansa e preferi pedir ajuda Isso eu já fazia ;)

Bom, eu queria saber como eu faria para alterar e parar a hora do PC ex: Eu clico no botão1 aí o tempo vai para 19:30:00 e fica parado aí como eu faço isso? eu uso esse código para parar o tempo -------------------- ↓ Função -------------------- function SetNewTime(Hora, Min, Seg: word): boolean; var st: TSYSTEMTIME; begin GetLocalTime(st); // Pega hora corrente st.wHour := Hora; st.wMinute := Min; st.wSecond := seg; if not SetLocalTime(st) then Result := FALSE else Result := true; end; -------------------- ↓ Num timer -------------------- var Present: TDateTime; Hour, Min, Sec, MSec: word; hh, mm, ss : shortstring; begin Present:= Now; DecodeTime(Present, Hour, Min, Sec, MSec); sec := sec - 1; // mantem o relogio parado entre um segundo e outro hh := IntToStr(hour); mm := IntToStr(min); ss := IntToStr(sec); SetNewTime(StrToInt(hh),StrToInt(mm),StrToInt(ss)); end;

Cara, eu testei isso aqui no evento ONMOUSEMOVE do Edit1 e consegui apenas mudar o cursor no resto do design e n do Edit1 (fica apenas aquele ''crlBean''), falta alguma coisa para funcionar certo.

Bom eu estou fazendo um programa que tem duas formas, aí eu uso o radiobutton para isso. Aí eu queria mudar a função de um botão quando o radiobutton fosse checado. Eu uso esse comando básico apenas para mudar o caption: if RadiobuttonX.checked:=True then begin buttonX.caption:=(' TESTE '); end Aí s o botão quando clicado aparece a frase 'Teste 1', eu queria que quando clicasse no radiobutton mudasse a função para, ex. 'Teste2' ou outro comando mais complexo.

Eu queria por exemplo: O cara instala um jogo no C, aí ele sempre está em 'Arquivos de programas/jogo bom/jogo.exe', mas tem gente (como eu) que instala em HD diferente mas com o mesmo local 'Arquivos de programas/jogo bom/jogo.exe', aí eu só queria que o usuário escolhece o HD q ele usa ;)

qual é a versão do Delphi que está usando ? Delphi 7 qual o seu nivel de conhecimento na linguagem ? Baixo - Ainda não faço programas sozinho, preciso de tutos, mas sempre evito o copiar e colar, e tento enteder a lógica do código. qual a lógica que voce esta usando para conseguir resolver o problema ? Tentei substituir os nomes q acho q tem q subsituir, tentei entender como funciona analisando o código. o que voce já codificou ? :wacko: Não sei muito o q é isso :wacko: mas acho q é isso: já vi q ali tem um loop eterno, e q vai tipo 'tirando imagens dos programas executados', mas q na verdade está "gravando". quais os erros que está encontrando ? Erro no 'TProcessEntry32;' e alguns outros decorrentes desse qual a finalidade deste programa ? Pretendo montar um bypass para um forum, bem funcional ;) abraço

Quando tento fazer isso dá um monte de erros eu botei esse código na source do programa e deu um monte de erros me ajudem plz @_@

Desculpe Jhonas mas eu não achei nada nesse link que podesse tirar minha dúvida :( Mas me explica uma coisa: Quando eu botar aquele comando no meu programa ele vai ficar procurando para ver s o processo q eu quero está rodando de tempos em tempos? E eu apenas tenho q substituir o nome 'ExeFileName' pelo nome do processo q eu quero? E se detectar o fechamento, como eu posso fazer q algum 'evento' aconteça?

Eu fiz isso, e botei uma imagem de fundo, aí ela não move. O q eu tenho q fazer para permitir o movimento (esquerda, cima..) ?

Desculpa aí Churc ;) O programa q eu quero q detecte é independente. E me explica direito o que eu tenho q fazer para quando meu programa detectar o outro programa exiba uma mensagem

vlw, mas s eu só quiser q escolha o Disco local ex: O usuário digita o disco local padrão dele que seja o 'D:', aí ele vai lá e digita apenas D no Edit1. Aí o meu programa faz o resto.

Queria saber como faço para abrir o programa s eu digitar o caminho no Edit1 Ex: Edit1 - Escrito: C\Arquivos de programas\Xzz\Xzz.exe Aí eu clico no botão abrir e vai abrir o program Xzz.exe

aff, ninguém vai responder não ??

Eu quero que quando um programa ( independente do meu ) for fechado apareça uma mensagem. O meu programa só vai detectar o feichamento do programa x e informar