Application.Icon setzen

[KodeZwerg]

In der Entstehung nutz ich erstmal viele Variablen um halt Feedback auswerten zu können, die kommen alle schön brav in eine {$IFNDEF DEPLOY} rein um automatisch bei {$DEFINE DEPLOY} ignoriert/übersprungen zu werden.

Als Beispiel dient mir obiger Source:

Delphi-Quellcode:

{.$DEFINE DEPLOY} // Wenn der Punkt entfernt wird, ist's aktiv

procedure DoIcon();
{$IFNDEF DEPLOY}
var
  h : hIcon;
{$ENDIF DEPLOY}
begin
{$IFNDEF DEPLOY}
  h := LoadIcon(hInstance, 'MAINICON');
  Application.Icon.Handle := h;
{$ELSE DEPLOY}
  Application.Icon.Handle := LoadIcon(hInstance, 'MAINICON');
{$ENDIF DEPLOY}
  InvalidateRect(Application.Handle, nil, true);
end;

Habs grad nur so hingekritzelt, korrektheit könnt falsch sein.