Ir ao conteúdo
  • Cadastre-se

raphalimam

Membro Júnior
  • Posts

    9
  • Cadastrado em

  • Última visita

Tudo que raphalimam postou

  1. Boa tarde, Gente eu estou começando ainda a mexer no delphin e com programação então tenho umas duvidas meio bestas, estou trabalhando num projeto junto com um conhecido, eu estava fazendo os botões da aplicação e percebi que todos os botões mesmo com sites diferentes estão abrindo apenas o link do primeiro botao, porém buscando eu não encontrei nada parecido com isso, entao não sei onde eu errei. unit Unit2; interface uses Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.ImageList, Vcl.ImgList, Vcl.ExtCtrls, ShellAPI, Vcl.ComCtrls ; type TForm2 = class(TForm) ImageList1: TImageList; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; StatusBar1: TStatusBar; Panel1: TPanel; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(sender: TObject); procedure Button3Click(sender: TObject); procedure Button4Click(sender: TObject); procedure Button5Click(sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin ShellExecute(Handle,'open','site1', '',nil,0); end; procedure TForm2.Button2Click(Sender: TObject); begin ShellExecute(Handle,'open',site2', '',nil,0); end; procedure TForm2.Button3Click(Sender: TObject); begin ShellExecute(Handle,'open','site3', '',nil,0); end; procedure TForm2.Button4Click(Sender: TObject); begin ShellExecute(Handle,'open','site4', '',nil,0); end; procedure TForm2.Button5Click(Sender: TObject); begin WinExec('C:\Program Files (x86)\programa\programa.exe', SW_SHOW); end; end. e no caso do Botao 5 eu queria fazer o programa abrir dentro do painel, porém não achei muito sobre isso, e queria saber se alguém tem alguma documentação e indicação sobre como fazer, pois eu percebi que teria que criar um subprocesso porém não achei muito sobre, mas o problema é que mesmo sem dar erro nenhum o programa não abre tentei das 2 formas mas em enhumas o programa abre, ja tentei inclusive usando um código pronto que afirmaram funcionar da calculadora. ShellExecute(Handle, nil, 'C:\Program Files (x86)\programa.exe', nil, nil, SW_SHOWNORMAL ) WinExec('C:\Program Files (x86)\programa\programa.exe', SW_SHOW); procedure TForm2.Button5Click(Sender: TObject); var Handle: THandle; begin Handle := FindWindow(nil, 'Calculadora'); if Handle > 0 then Windows.SetParent(Handle, Panel1.Handle) else begin WinExec(´calc.exe´, SW_SHOWDEFAULT); Handle := FindWindow(nil, 'Calculadora'); if Handle > 0 then Windows.SetParent(Handle, Panel1.Handle); end; end;
  2. A melhor opção é procurar no aliexpress ou no Ml a fan pra comprar, você acha no aliexpress várias fans aí e só procurar pelo modelo da sua gpu pra achar fans dela, a minha 1070ti da Zotac eu comprei a fan no shopee pois tinha uma pá quebrada, funcionava normal mais pra vender fica ruim.
  3. Gente eu estava pesquisando na internet e esbarrei com a a memoria ram da OXY https://produto.mercadolivre.com.br/MLB-805415197-memoria-ddr3-1333mhz-8gb-oxy-frete-gratis-qualidade-kingston-_JM porém olhando na internet não achei muita coisa além de falarem que é a empresa que fazia memória pra kingston, alguém já usou ou pode falar sobre o desempenho dela?
  4. valeu pela dica, aproveitando o topico, como eu to querendo fazer com cano rígido e não sou acostumado a usar wc custom, já pensando em manutenção dele pensei em fazer um loop tipo e da imagem, e queria saber qual seria a peça ussada na parte de baixo pra fazer aquele cano pequeno pra baixo tampado, que aparenta ser pra poder esvaziar o sistema, os procurando eu não achei nada sobre como usar esse fiting pra fechar sistema.
  5. Galera, eu atualmente to usando um i74790k com um h60, estou pensando em pegar uma 1080ti Poseidon ou artic storm, pegando uma delas eu gostaria de fazer sistema de wc pra cpu e pra vga. Eu queria saber de quem conhece bem disso se um thermaltake pacific r360 aguentaria os dois? e se caso eu trocasse o radiador que vem nele por um de 480 ele aguentaria? E em último caso até mesmo usando 2 radiadores. Sobre o gabinete se forem querer saber ê um Core p5 então os tubos não deram muitos extensos.
  6. Galera estou para pegar uma GTX 1080 ti, e gostaria de recomendações sobre qual pegar e o porque, visando que a diferença no preço delas é menor do que 100 reais praticamente. Gtx 1080 ti Gaming X TRIO; Gtx 1080 ti AORUS Windforce; Gtx 1080 ti AMP! Extreme; Gigabyte 1080 ti Gaming OC. Dentre as citadas, qual vocês recomendam e o porque dela e não outra se possível.
  7. Gente eu tava pensando em pegar uma gtx 1080, mas to vendo uma diferença no preço que nao compensa pegar ela pra full hd então queria saber qual a melhor gtx 1070 que vocês me recomendam. ps: minha configuração atual é com um i7 4790k uma placa-mãe z97-gd65 com 16gb ram, fonte seasonic 620w plus bronze e uma r9 270. PS²: se eu fosse vender a r9 270 quanto vocês acham que da pra conseguir nela.
  8. @Imakuni valeu, a fonte que eu uso é a Seasonic Silent S12 620W - 80 Plus Bronze - S12II-620 o que vocês acham dessa http://www.terabyteshop.com.br/produto/6524/placa-de-video-msi-geforce-gtx-1080-armor-8g-oc-8gb-gddr5x-pci-exp
  9. Galera com essa promoção da nvidia de ganhar o jogo ou For Honor ou o Ghost Recon, eu tava pensando eu pegar um GTX 1080, porém existe tantos modelos que eu fiquei em duvida de qual pegar e qual seria a melhor, atualmente eu tu usando um i7 4790k e um r9 270, com uma fonte de 600w reais, e queria saber tambem se vocês acham que a fonte aguenta ou é melhor trocar junto.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...