maidinhdan > 21-08-18, 11:33 PM
[Code]
procedure CurStepChanged (CurStep: TSetupStep);
var
ErrorCode: Integer;
begin
//phần ghi vào registry
RegWriteDWordValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\14.0\Access\Security' , 'AccessVBOM', 00000001);
RegWriteDWordValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\14.0\Access\Security' , 'VBAWarnings', 00000001);
RegWriteDWordValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\12.0\Access\Security' , 'VBAWarnings', 00000001);
RegWriteDWordValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\11.0\Access\Security' , 'Level', 00000001);
if (CurStep = ssDone) then
begin
//Khởi động khi chạy xong
ShellExec('', ExpandConstant('{app}\PhanMem Thong ke Toa An.mde'), '', '', SW_SHOW, ewNoWait, ErrorCode)
end;
end;
NguyenDungAnh > 22-08-18, 08:32 AM