1.
Potraži po netu program:
ResHack

Tacnije:
[url]http://www.users.on.net/johnson/resourcehacker/[/url]

A zasto bi izvalcio ikonu iz necaga kad imas na netu milijarde ikona probaj je naci :)

1. Koristi google, keyword Icon extractor

2. XP Style

http://www.elitesecurity.org/tema/22522/0#159277
http://www.elitesecurity.org/tema/50331/0#326094

Za ikone:
nerazumijem baš. Da li hoćeš da izvučeš ikone iz resorce-a i ubaciš u toolbar ili hoćeš da praviš program koji izvlači ikone iz exe file-a. Javi, ja imam oba primjera.

Za Style xp:
Kad upališ VB idi na Add-Ins pa tu na Add-In Manager... e tu ti se otvori neka lista i dole u pri kraju nađi VB 6 Resource Editor e njega upali(Loaded/Unloaded,Load on startup). Sad ugasi VB i ponovo upali pa ideš na Project i dole u dnu imaš Add new resource file.Kad klikneš na njega otvoriće se resource editor eh tu ubaciš ovaj resource što sam zakačio. I još trebaš da dodaš na formu Microsoft Comm Control 6.0. Sad imaš Style XP program bez onog <imeprojekta>.EXE.Manifest,to ti više netreba.

Da treba mi da izvlacim iz Exe filea ikone...
ps nemoj mi slati nikakve gotove programe koji to rade
imam ih i previse
ako moze kod iz vb6
Unaprijed hvala!

A na ovo pitanje "zasto bih izvlacio??" odgovor je:
jer pravim jednostavniji toolbar i eto da ne bih uvijek koristio
Icon Snatcher, Icon Sucker i slicne stvari!

Imam negdje na računaru primjer pa kad nađem poslaću ti. Inače imam na tone vb koda tako da stvarno više nemam pojma gdje šta stoji. Uglavnom kad nađem...

Oki!!
Hvala stari...

Icons = ExtractIcon(form.hWnd, file, -1)
ova funkcija vraca broj ikona u exe fajlu, odnosno dll-u, gde je form prozor u kom radis, a file je null terminated path do exe fajla

hIcon = ExtractIcon(form2.hWnd, fajl, n)
ova funkcija vraca instancu n-te ikone u istoimenom fajlu

f = DrawIcon(Picture1.hdc, 0, 0, hIcon)
ovo funkcijom je crtas u odredjeni pic ili sta vec. Tako dobijes picture1.image... ako ti treba bas .picture a ne .image, onda jednostavno drugoj slici ili objektu dodelis objekat.picture=picture1.image.

a one gore funkcije definises sa:

Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long

nadam se da ti je to trebalo :) Pozdrav

Mozes li mi poslati citav kod
jer u mene prijavljuje neku gresku!

Evo, da konkretizujemo
Napravi novi form, nek ostane Form1, ubaci sliku Pict, obavezno stavi autorefresh=true, napravi i cmd button i nazovi ga cmd, recimo

i sad:
sub cmd_Click ()
dim fajl as string ' fajl iz koga citamo ikone
dim icons as long ' broj ikona u fajlu
dim hIcon as long ' instanca ucitane ikone
dim rndicon as long 'neki slucajni broj (redni broj neke slucajne ikone iz fajla)
dim vOK as long ' vraca neko s***** kao da li je dobro nacrtana ikona

file="c:\windows\system32\shell32.dll"+chr$(0) 'ovo je fajl za primer
icons = ExtractIcon(Form1.hWnd, fajl, -1)
rndicons=int(rnd*icons) ' pazi, redni broj ikone je 0-based
hIcon = ExtractIcon(Form1.hWnd, fajl, n)
f = DrawIcon(Pict.hdc, 0, 0, hIcon)
end sub

na pocetku u declarations deklarises kao privatne ove dve funkcije:
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

mora da radi ! naravno da mozes da napravis funkciju od toga da izvlaci ikone, crta kojekude i bla bla znas vec.. ovo samo primer da vidis kako radi

Pozdrav

sorry, pogresno sam upisao imena varijabli...
ova dva reda idu umesto ovako:

rndicons=int(rnd*icons)
hIcon = ExtractIcon(Form1.hWnd, fajl, n)

idu ovako:

rndicon=int(rnd*icons)
hIcon = ExtractIcon(Form1.hWnd, fajl, rndicon)

i da ne zaboravim da ti kazem da chr$(0) mora da ide na kraju imena fajla.

toliko
za
danas
Pozdrav

Evo nešto što sam našao.

Evo i ovo.

Znam da je ovo stara tema, ali trazio sam nesto o XP style-u i nasao ovo, al meni nesto ne radi.
Svidja mi se ovo da nemoram da slepam manifest fajl sa mojim exe-om, al meni prijavljuje da .res fajl nije validan!
Jel zna neko zasto, il je to do mene?

Do tebe je! Jer u mene radi perfektno!

Ali ako samo zelis dugmad da budu kako u Xp potrazi na
http://www.planet-source-code.com
projekat pod imenom
Chameleon OCX ili sl
pored XP tu ima jos puno tipova dugmadi kao Office i sl