Zitat von
H4ndy:
Vielleicht geht das ja.
Allerdings weiss ich nicht, ab wann dieses Compiler-Konstrukt funktioniert, hab nur D2010 zur Hand.
Delphi-Quellcode:
function AcVCLActive: Boolean;
begin
{$IF Defined(TApplication)}
Result := True;
{$ELSE}
Result := False;
{$IFEND}
end;
Nur so als Info:
Dieses Konstrukt wird unter D7 Pro kompiliert, aber es wird false rückgemeldet
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<