Ich würde den Kram so umschreiben wenn für CertificationIDLength keine Rückgabe erforderlich ist.
Zitat:
CertificationIDLength wurde nicht initialisiert
PCertificationID = string -> PAnsiChar
function SeGetCertificationId(var CertificationId: PAnsiChar; CertificationIDLength: Cardinal): TSeReturnCode;
Delphi-Quellcode:
if SeGetCertificationId(CertificationId, 0) = ExecutionOk then
bla, bla
EDIT:
CertificationId := String(AnsiString(PCertificationID)); // Oder sehe ich das falsch?
Ja. Du benötigst die Variable PCertificationID nicht!
Die Rückgabe ist ein Pointer auf Ansistring (
PAnsiChar) siehe (PtrToStringAnsiAndFree) kein String!