procedure TfmArchiveOLAPDB.Archive;
Var AStr,CmdStr,CurDir,ArchivePath,ArchiveExeName:String;
    CmdStrP,PArchiveExeName:PChar;
    aStartUpInfo:TStartUpInfo;
    aProcessInformation:TProcessInformation;
    AInt:Longbool;
    //AInt:Integer;

Procedure WaitProcess(aHndProcess:THandle);
Var AExitCode:DWord;
    //BExitCode:Longint;
Begin
     Application.ProcessMessages;
     //BExitCode:=GetTickCount();
     If GetExitCodeProcess(aHndProcess,AExitCode) Then
        While AExitCode=STILL_ACTIVE Do
              Begin
                   Application.ProcessMessages;
                   If GetExitCodeProcess(aHndProcess,AExitCode) Then
                      Application.ProcessMessages
                   Else
                       Exit;
              End;
     //While GetTickCount()<(BExitCode+ 4000 ) Do
           //wait;

End;

begin
Try
     CmdStrP:=Nil;
     CurDir:=GetCurDir;

     DBPath:='"'+DBPath+'" "'+DBName+'"';
     ArchivePath:='"'+CurDir+FormatDateTime('DDMMYYYY',Now)+'_'+DBName+'"';
     ArchiveExeName:='"'+OLAPPath+'Bin\msmdarch.exe"';
     CmdStr:=ArchiveExeName+' /a '+ServerName+' '+DBPath+' '+ArchivePath+' "'+CurDir+FormatDateTime('DDMMYYYY',Now)+'_'+DBName+'_Archive.log"';

     GetMem(CmdStrP, Length(CmdStr)+ 1 );
     GetMem(PArchiveExeName, Length(OLAPPath+'Bin\msmdarch.exe')+ 1 );

     StrPCopy(CmdStrP,CmdStr);
     StrPCopy(PArchiveExeName,OLAPPath+'Bin\msmdarch.exe');

     GetStartupInfo(aStartUpInfo);
     aStartUpInfo.wShowWindow:=SW_MINIMIZE;//SW_HIDE;
     AInt:=CreateProcess(PArchiveExeName,CmdStrP,Nil,Nil,True,NORMAL_PRIORITY_CLASS,Nil,Nil,aStartUpInfo,aProcessInformation);
     WaitProcess(aProcessInformation.hProcess);
Finally
       If CmdStrP<>Nil Then
          FreeMem(CmdStrP, Length(CmdStr)+ 1 );
End;
end;