Izdvajanje ikonice

Izdvajanje ikonice

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Kako da sa nesto.exe izdvojim ikonicu i stavim je u Image1?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 20 Jun 2005
  • Poruke: 5

Uuuuuuuu brate... kolko me secanje sluzi nema takve komande. za tako neto ces nabildovati sake od pisanjq koda!
Sta to ustvari pravis?



offline
  • Pridružio: 18 Apr 2003
  • Poruke: 5001
  • Gde živiš: Beograd

Za izvlacenje ikonica iz exe i dll fajlova imas api funkciju ExtractIcon unutar Shell32.lib

offline
  • Pridružio: 15 Jul 2005
  • Poruke: 36
  • Gde živiš: Cacak

konkretan primer:
'This project needs a PictureBox, called 'Picture1' 'In general section Private Declare Function DrawIcon Lib "user32" Alias "DrawIcon" (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()     'KPD-Team 1998     'URL: http://www.allapi.net/     'E-Mail: KPDTeam@Allapi.net     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

Ko je trenutno na forumu
 

Ukupno su 804 korisnika na forumu :: 44 registrovanih, 11 sakrivenih i 749 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., AF-1, ALBION101, amaterSRB, Areal84, azarakhsh, bankulen, bbelic, danilopu, darkangel, djboj, Doca, dolinalima, Dorcolac, draganca, dragoljub11987, dragon986, Drug pukovnik, Duh sa sekirom, FOX, Georgius, JankoS, JOntra, kalens021, kybonacci, Marko Marković, mercedesamg, Milan A. Nikolic, Milos ZA, Misirac, nadjas_515, nemkea71, perica5, piton, robertino, S-lash, sakota79, Sale.S, Snorks, sombrero, tmanda323, Toni, voja64, 79693