Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: Netzwerkabbrüche oder Programm schließt sich einfach

  Alt 2. Jul 2018, 14:19
Dann fehlen Deiner "Windows.pas" diese Deklarationen oder in Lazarus ist das woanders abgelegt, da bin ich überfragt.
Hier ist die uses wieder bereinigt und die PE-Flags werden nur gesetzt wenn ein Windows Kompilat entsteht.
Ich empfehle Dir mal nach IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP in zusammenhang mit Lazarus zu Suchen, das ist keine so abnormale Konstante.
Delphi-Quellcode:
uses

{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
{$IFDEF Windows}
//Windows,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, datetimectrls, printer4lazarus, Unit1, Unit2, Unit3, Unit4, Unit5,
Unit6, Unit7, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13, Unit14
{ you can add units after this };

{$IFDEF Windows}
const
  IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP = $0400; { If Image is on removable media, copy and run from the swap file. }
  IMAGE_FILE_NET_RUN_FROM_SWAP = $0800; { If Image is on Net, copy and run from the swap file. }

{$SetPEFlags IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP or IMAGE_FILE_NET_RUN_FROM_SWAP}
{$ENDIF}


{$R *.res}
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat