EnableExplicit

Define IcoLibPath$ = "C:\Windows\System32\shell32.dll"
Define DlgResult
Define hWnd=0
Define DefaultIconID = 5

If OpenLibrary(0,"Shell32.dll")
  Prototype.l PickIconDlg(hwnd,pszIconPath.p-unicode,cchIconPath,piIconIndex)
  Define PickIconDlg.PickIconDlg = GetFunction(0,"PickIconDlg")   
  
  DlgResult = PickIconDlg(hWnd,IcoLibPath$,Len(IcoLibPath$),@DefaultIconID)
  If DlgResult = 0
    MessageRequester("","Kein Icon ausgewählt.",0)
  Else
    MessageRequester("","Icon wurde ausgewählt und kann nun z.B. mit ExtractIcon_() extrahiert werden. Icon-Nummer: "+Str(DefaultIconID),0)
    
  EndIf
EndIf