Comment puis-je me débarrasser de "W1047 code non protégé '@ opérateur" dans cet appel RaiseExeption

Question

Le code suivant dans Delphi 2007 me donne l'avertissement

W1047 de code non protégé '@ opérateur'

dans la ligne qui passe à @ThreadNameInfo RaiseException:

procedure SetThreadName(const _Name: AnsiString); 
var 
    ThreadNameInfo: TThreadNameInfo; 
begin 
    ThreadNameInfo.FType := $1000; 
    ThreadNameInfo.FName := PAnsiChar(_Name); 
    ThreadNameInfo.FThreadID := $FFFFFFFF; 
    ThreadNameInfo.FFlags := 0; 
    try 
    RaiseException($406D1388, 0, SizeOf(ThreadNameInfo) div SizeOf(LongWord), 
     @ThreadNameInfo); // --> Here 
    except 
    // ignore 
    end; 
end; 

en dehors de la désactivation de l'avertissement du compilateur pour « code non sécurisé », est-il un autre moyen de se débarrasser de cet avertissement? Cet avertissement a-t-il même un sens, puisque Delphi ne supporte plus dotNET?

J'ai essayé de transtyper explicitement le paramètre en PDWord (le type déclaré du dernier paramètre), qui n'a rien changé.

Answer 1

Cet avertissement est destiné à être utilisé avec du code qui doit être compilé par le compilateur .net. Si vous n'utilisez pas le compilateur Delphi .net, vous pouvez, et devriez, supprimer cet avertissement particulier.