ofog_22
یک شنبه 22 مرداد 1391, 11:05 صبح
من برنامه تو دلفی 7 دارم که با دستورات زیر یه کلید میسازم
if (RegCreateKey(HKEY_LOCAL_MACHINE, PChar('SYSTEM\CurrentControlSet\Services\EventLog\ Application\'+ AppName), hk)<>ERROR_SUCCESS) then
begin
ML_MessageDlg(fLang, '', MessageList[fLang, TAG_MSG_CANNOT_CREATE_REG_KEY], mtError, [mbOK], 0, nil);
Exit;
end;
szBuf:= AppDir + 'MsnRes.dll';
if not FileExists(szBuf) then
begin
RegCloseKey(hk);
ML_MessageDlg(fLang, '', MessageList[fLang, TAG_MSG_MSNRESDLL_NOT_FOUND], mtError, [mbOK], 0, nil);
Exit;
end;
if (RegSetValueEx(hk, 'EventMessageFile', 0, REG_EXPAND_SZ, PChar(szBuf), Length(szBuf) + 1)<>ERROR_SUCCESS) then
begin
ML_MessageDlg(fLang, '', MessageList[fLang, TAG_MSG_CANNOT_SET_EVENT_MSG_FILE], mtError, [mbOK], 0, nil);
Exit;
end;
تو ویندوز سون با ران از ادمین نباید مشکلی داشته باشم اما من دقیقا تو این دستورات به مشکل میخورم
یعنی نمیتونم کلید رو بسازم و مقدار دهی کنم
مشکل از چی هست؟؟؟؟؟ درحالی که Run as Admin اجرا میکنم
لطفا کمکم کنید
if (RegCreateKey(HKEY_LOCAL_MACHINE, PChar('SYSTEM\CurrentControlSet\Services\EventLog\ Application\'+ AppName), hk)<>ERROR_SUCCESS) then
begin
ML_MessageDlg(fLang, '', MessageList[fLang, TAG_MSG_CANNOT_CREATE_REG_KEY], mtError, [mbOK], 0, nil);
Exit;
end;
szBuf:= AppDir + 'MsnRes.dll';
if not FileExists(szBuf) then
begin
RegCloseKey(hk);
ML_MessageDlg(fLang, '', MessageList[fLang, TAG_MSG_MSNRESDLL_NOT_FOUND], mtError, [mbOK], 0, nil);
Exit;
end;
if (RegSetValueEx(hk, 'EventMessageFile', 0, REG_EXPAND_SZ, PChar(szBuf), Length(szBuf) + 1)<>ERROR_SUCCESS) then
begin
ML_MessageDlg(fLang, '', MessageList[fLang, TAG_MSG_CANNOT_SET_EVENT_MSG_FILE], mtError, [mbOK], 0, nil);
Exit;
end;
تو ویندوز سون با ران از ادمین نباید مشکلی داشته باشم اما من دقیقا تو این دستورات به مشکل میخورم
یعنی نمیتونم کلید رو بسازم و مقدار دهی کنم
مشکل از چی هست؟؟؟؟؟ درحالی که Run as Admin اجرا میکنم
لطفا کمکم کنید