(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: Neues Icon für Messagebox
27. Jun 2007, 10:08
ich hab das Gefühl du verstehst den Quelltext nicht sondern hast ihn einfach nur kopiert.
Pointer(PWideChar(WideString('MAINICON')));
Der Quelltext macht nichts anderes als 'MainIcon' zu einem WideString zu casten, davon die Adresse zu holen und diese auf einen Pointer zu casten um sie zuweisen zu können.
Wenn du also ein Icon in einer Ressource hast, hat diese Ressource einen Namen. Diesen Namen musst du zu einem WideString wandeln und die Adresse des WideStrings kannst du dann lpszIcon zuweisen.
Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
|