Bitweise Parameter füllen in Delphi

[ognif]

Vielen dank. In der Tat war kein Set vorhanden. Ich habe das jetzt erstmal in die VCL eingebaut.
Aber jetzt stimmt natürlich die Funktion

Code:

function TFoxBurnerSDK.CreateImage(ImagePath, BadSectorsPath: string; ImageType: TImageType; Task: TCreateImageTask; VerifySectorBuffer: integer; FullCapacity: boolean):boolean;
var CIP:TCreateImageParams;
begin
    CheckActive;
    StrPLCopy(CIP.ImagePath,ImagePath,MAX_PATH-1);
    StrPLCopy(CIP.BadSectorsFilePath,BadSectorsPath,MAX_PATH-1);
    CIP.ImageType:=integer(ImageType);
     CIP.VerifySectorBuffer:=integer(VerifySectorBuffer);
     CIP.FullCapacity:=BoolToByte(FullCapacity);
    FillReadErrorCorrectionParams(CIP.ErrorParams);
    Result:=DLLResult(FoxBurnerSDKCore.CreateImage(CIP,integer(Task)));
end;

Nicht mehr, da ja hier ein TCreateImageTask und nicht ein TCreateImageTasks erwartet wird.
Wenn ich jetzt die Funktion abändere, auf TCreateImageTasks wird das ganze dann wirklich noch am Ende
richtig an die DLL übergeben?

Code:

integer(Task)