Dialog zur Icon-Auswahl

[ToBmAsTeR]

moiiin...


danke MathiasSimmack, Luckie und Gollum...


mein Programm funktioniert jetzt, hab ein wenig mit den umwandlungsfunktionen rumgespielt und mit dieser hier funktionierts:

Delphi-Quellcode:

{$DEFINE UNICODE} //for NT5 an higher

procedure TMainForm.PickIcon(hwndicon: HWND; var filename: string; var index: integer);
var
{$IFDEF UNICODE}
  buf   : widestring;
{$ELSE}
  buf   : string;
{$ENDIF}
 idx: dword;
begin
 // "buf" auf MAX_PATH setzen, & leeren
{$IFDEF UNICODE}
 SetLength(buf,MAX_PATH * 2);
{$ELSE}
 SetLength(buf,MAX_PATH);
{$ENDIF}
 ZeroMemory(@buf[1],length(buf));

 // "iconfile" als Ausgangspunkt festlegen
{$IFDEF UNICODE}
 buf := widestring(filename);
{$ELSE}
 buf := string(filename);
{$ENDIF}
 idx := index;
 // Dialog aufrufen
{$IFDEF UNICODE}
 if(PickIconDlg(hwndicon,pwidechar(buf),length(buf)+1,idx)) then
{$ELSE}
 if(PickIconDlg(hwndicon,pchar(buf),length(buf)+1,idx)) then
{$ENDIF}
 begin
{$IFDEF UNICODE}
 filename := string(buf);
{$ELSE}
 filename := string(buf);
{$ENDIF}
 index := idx;
 end;
end;

ich hoffe, dass das auch anderen usern hilft die den "Icon Auswählen"-Dialog von Windows benutzen wollen...

Zitat:

Vormerken für die CodeLib!!!

Ich hoffe, dass diese Funktion dort mal in irgendeiner Form erscheinen wird


Mfg und THX
ToBmAsTeR


ps: ich werd jetzt noch den rest des programms fertigstellen und dann hier mal veröffentlichen