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.