Extract Icon
Code:
'This project needs a PictureBox, called 'Picture1'
'In general section
Private Declare Function DrawIcon Lib "user32" _
(ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
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 GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
Dim Path As String, strSave As String
'Create a buffer string
strSave = String(200, Chr$(0))
'Get the windows directory and append '\REGEdit.exe' to it
Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) + "\REGEdit.exe"
'No pictures
Picture1.Picture = LoadPicture()
'Set graphicmode to 'persistent
Picture1.AutoRedraw = True
'Extract the icon from REGEdit
return1& = ExtractIcon(Me.hWnd, Path, 2)
'Draw the icon on the form
return2& = DrawIcon(Picture1.hdc, 0, 0, return1&)
End Sub
Registrovani: 130 ( NShappy, zonic, lemikv, flylord, srdjan_m, pajper, hak1, loo, Sale 89, Pera GARMIN, DaNcAmU, ki111er, kuki87, Buum, pomorisac12, filka, filka, tds01, CombatBoy, Coboco, Reggie, Euronymous, Marconini, klajat, Mr. Bond, cicko, dusanissimus, abyss, vojin prole, apex, rampelstiltskin, ybeelsec, bsegic, slamen, Whois, sorrow, Jcod3r, loks, djerdja, stsung, gorandx, Spavac_na_Chatu, buljko, mazurinho, muncan, cukicomm, jolovicn, nidzesi, pro, filthfunk, printxpress, miivasti13, xmast, rafiki, misteryh, DusanSukovic, kasaad, prettyboy, vujkebac, Predrag Glumac, 0123456, zknapic, Mili-CQ, trpa13, mare_bj, docke123, vidan kv, Foki, David Dulić, etjen, ferfutfer, kovač, pela, weawer, milunka, Milan Stojanovic, Hakim Bej, kuca8uk3, bugsu, zveckoo, savkic, P_e_r_a, gagimirna, dankom, Ronnie Coleman, ADRENALIN, Flash411, NIkoDS, sasa djurdjevic, cileanac, miq357, azurazur, bube61, banca, Emil Ranc, smars, Algol, todorl, Odisejyu, rico76, sead_jušić, EmilijaV, miroslav_so, buca2204965, mikal, magic21, zeljko74, smixx, Nemanja Avramović, wolfpack, Okram_marko, vujkev, Davor Vlajkovic, nevelina, Stojanic Zeljko, n3x, sseennaadd, gogi100, Milan Ogrizovic, stevic, smsoft, trfgyuiktgufvh, mikiilic, smeshko, Marcony, bukovski, Dramatic, night-shift, 3pavle, djricky )
Ikone na Formi?!?