Atalho Dentro Do Form!

[slipknot]

Ae galera alguém sabe importar um atalho de um programa junto com o icone pra dentro do meu form....assim tb executando o arquivo quando clicar....

vlw pessoal!!! :D

[Eddie_666]

Essa aí eu nunca vi, mas tenta procurar na internet, deve ter algum active x que faça isso...

[slipknot]

tp eu tava pensando eu fazer um botao de FILE....dai o cara pega o diretorio por esse botaum....e o ICO tb.....mas dai é foda.....enche o saco...não vai fikar legal....se você achar algo assim me avisa...nem sei onde procurar.....

[Graymalkin]

Se entendi bem, você quer que apareça no seu form um ícone de um determinado programa e que clicando nele o programa abra, certo? Bem, você pode usar as APIs ExtractIcon para extrair o ícone de um arquivo e DrawIcon para desenhar o ícone em uma picturebox, daí usar um dos eventos da picturebox para chamar o executável.

ok?

Graymalkin

[slipknot]

Se não for pedir muito, você poderia fazer um exmplo e mandar nesse e-mail, pois não sei utilizar api's.....=/...me desculpe....mande me por e-mail

egonbraun@globo.com

muito grato!!

abraços

[Graymalkin]

Vou postar aqui mesmo para compartilhar com os outros membros. Coloque uma picturebox no form e as seguintes declarações no General Declarations desse form:

Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

Daí coloque no evento Load() do form, o seguinte código:

Picture1.AutoRedraw = True
retorno = ExtractIcon(Me.hWnd, "c:\windows\calc.exe", 0)
DrawIcon Picture1.hdc, 0, 0, retorno

E pronto, quando você rodar o programa o ícone da calculadora estará na picturebox.

Abraços,

Graymalkin

[slipknot]

Brigadaum GrayMalkin!!!!