Hallo,
mit folgender Funktion habe ich das ermittelte Datum in eine neu Reihenfolge gebracht (ich hoffe, dass funktioniert auch ):
export prototype InstDatum(HWND);
function InstDatum(hMSI)
STRING svT1, svT2, svM1, svM2, svJ1, svJ2, svJ3, svJ4, svDate, svProgrammID;
NUMBER nvDate;
begin
// aktuelles Datum ermitteln
GetSystemInfo (DATE, nvDate, svDate);
// Werte der Variablen setzen
StrSub (svT1, svDate, 0, 1);
StrSub (svT2, svDate, 1, 1);
StrSub (svM1, svDate, 3, 1);
StrSub (svM2, svDate, 4, 1);
StrSub (svJ1, svDate, 6, 1);
StrSub (svJ2, svDate, 7, 1);
StrSub (svJ3, svDate, 8, 1);
StrSub (svJ4, svDate, 9, 1);
svProgrammID = svJ4 ^ svT1 ^ svJ3 ^ svT2 ^ svJ2 ^ svM1 ^ svJ1 ^ svM2;
//Wert anzeigen (kann später entfallen)
MessageBox ("Wert: " + svProgrammID, SEVERE);
//Wert an Eigenschaft übergeben
return ERROR_SUCCESS;
end;
Den Wert der Varialblen "svProgrammID" möchte ich dann an eine Eigenschaft übergeben, damit ich diesen Wert dann in der Registry speichern kann. Bin für jeden Tipp dankbar!