Einzelnen Beitrag anzeigen

sko1

Registriert seit: 27. Jan 2017
577 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#6

AW: Projektoptionen Anzeige Formulare

  Alt 9. Nov 2017, 05:45
Zitat:
womöglich noch mit IFDEFs?
Bist Du Hellseher?
Du hast Recht, die DPR sieht so aus weil ich von vorn herein den Programmstart auf bestimmten Devices unterbinden muss:

Delphi-Quellcode:
begin
  Application.Initialize;
{$IFDEF ANDROID}
  IdOpenSSLSetLibPath(TPath.GetDocumentsPath);
{$ENDIF}
  // Device bestimmen und ggf. gleich mit Meldung abbrechen
  DeviceInfoByPlatform;
  // Gerätename wegschreiben
  MakeDeviceInfo(DeviceInfo.diDevice);
  if DeviceSupportet() then
    Application.CreateForm(TFormMain, FormMain)
  else
    Application.CreateForm(TFormDeviceInfo, FormDeviceInfo);
  Application.Run;

end.
  Mit Zitat antworten Zitat