Danke
MVogt
Posted 16 May 2001 - 09:05
Danke
MVogt
Posted 17 May 2001 - 11:05
du mußt natürlich drauf achten, daß die Variablennamen komplett groß geschrieben sind (globale Variablen sind)
(Edited by rj2Skipper at 12:06 pm on May 17, 2001)
Posted 17 May 2001 - 15:13
Danke
Markus Vogt
Posted 18 May 2001 - 08:57
ich benutze folgendes Skript um zu überprüfen, ob in einem Dialog in ein Eiditfeld etwas text eingetragen wurde. Das Editfeld hat die Property SERVICEACCOUNTUSERNAME .
Das Skript wird beim Klick auf Next aufgerufen und setzt ein weitere Property CHECKUSERNAME auf 1, wenn etwas eingetragen wurde, und 0 wenn nichts eingetragen wurde, bzw. die Eigenschaft nicht gelesen werden konnte.
export prototype CheckUserName(HWND);
function CheckUserName (hMSI)
STRING svUserName;
LONG lResult;
NUMBER nBuff;
begin
nBuff = 1024;
lResult = MsiGetProperty(hMSI,"SERVICEACCOUNTUSERNAME",svUserName,nBuff);
if (lResult == ERROR_SUCCESS) then
if (svUserName != "") then
MsiSetProperty (hMSI, "CHECKUSERNAME","1");
else
MessageBox("Es muß ein Benutzerkonto angegeben werden, unter dem der Dienst ausgeführt werden soll.",SEVERE);
MsiSetProperty (hMSI, "CHECKUSERNAME","0");
endif;
else
MessageBox("Es muß ein Benutzerkonto angegeben werden, unter dem der Dienst ausgeführt werden soll.",SEVERE);
MsiSetProperty (hMSI, "CHECKUSERNAME","0");
endif;
end;
hoffe dir damit helfen zu können