Delphi-Quellcode:
IconFile := '
';
[...]
if ( PickIconDialog(
Handle, IconFile, IconIndex ) = True )
then
Das IconFile ist immer ein Leerstring. Zudem definiert PickIconDlg den Parameter pszIconPath als InOut (nicht direkt, aber durch die Beschreibung wird es klar). Das dürfte aber in Verbindung mit dem Cast nach PWideChar Probleme geben.
Grüße
Dalai
PS: Bitte nie auf = True vergleichen!
Ich habe im Editor vieles rausgeschnippselt ums aufs wesentliche zu reduzieren, IconFile war auch oben drin mit Edit-Feld zuweisung, sorry ist dem reißwolf vorgeworfen worden.
if not ( PickIconDialog( IconFile, IconIndex ) = False ) then
*updated*
Dankeschön!