Kod: Tümünü seç
function DelphiVersiyonu:String;
begin
Result:=
{$IF Defined(VER80)}
'Delphi 1'
{$ELSEIF Defined(VER90)}
'Delphi 2'
{$ELSEIF Defined(VER100)}
'Delphi 3'
{$ELSEIF Defined(VER120)}
'Delphi 4'
{$ELSEIF Defined(VER130)}
'Delphi 5'
{$ELSEIF Defined(VER140)}
'Delphi 6'
{$ELSEIF Defined(VER150)}
'Delphi 7'
{$ELSEIF Defined(VER160)}
'Delphi 8'
{$ELSEIF Defined(VER170)}
'Delphi 2005'
{$ELSEIF Defined(VER180)}
'Delphi 2006'
{$ELSEIF Defined(VER190)}
'Delphi 2007'
{$ELSEIF Defined(VER200)}
'Delphi 2009'
{$ELSEIF Defined(VER210)}
'Delphi 2010'
{$ELSE}
'Bilinmeyen yeni versiyon'
{$IFEND};
end;
Kod: Tümünü seç
{$IF Defined(VER80)}
{$DEFINE Delphi1}
{$ELSEIF Defined(VER90)}
{$DEFINE Delphi2}
{$ELSEIF Defined(VER100)}
{$DEFINE Delphi3}
{$ELSEIF Defined(VER120)}
{$DEFINE Delphi4}
{$ELSEIF Defined(VER130)}
{$DEFINE Delphi5}
{$ELSEIF Defined(VER140)}
{$DEFINE Delphi6}
{$ELSEIF Defined(VER150)}
{$DEFINE Delphi7}
{$ELSEIF Defined(VER160)}
{$DEFINE Delphi8}
{$ELSEIF Defined(VER170)}
{$DEFINE Delphi2005}
{$ELSEIF Defined(VER180)}
{$DEFINE Delphi2006}
{$ELSEIF Defined(VER190)}
{$DEFINE Delphi2007veUstu}
{$ELSEIF Defined(VER200)}
{$DEFINE Delphi2007veUstu}
{$DEFINE Delphi2009veUstu}
{$ELSEIF Defined(VER210)}
{$DEFINE Delphi2007veUstu}
{$DEFINE Delphi2009veUstu}
{$DEFINE Delphi2010veUstu}
{$ELSE}
{$DEFINE Delphi2007veUstu}
{$DEFINE Delphi2009veUstu}
{$DEFINE Delphi2010veUstu}
{$DEFINE Delphi2010Ustu}
{$IFEND}
type
myPChar=
{$IFDEF Delphi2009veUstu}
PWideChar
{$ELSE}
PChar
{$ENDIF};
procedure TForm1.Button1Click(Sender: TObject);
var S:String;
begin
Caption:=DelphiVersiyonu;
S:='Deneme';
MessageBox(Handle,myPChar(S),'Dikkat',0);
end;