alex_p_nЧтобы можно было, запустив его из своей проги по ShellExecute, опеределить статус и результат его работы
не по ShellExecute, а нужно получить лог работы GBAK.
это можно сделать через:
1) ServiceAPI и компонент TIBBackupService
2) через captured запуск внешнего приложения GBAK
код на Delphi7, для уникодной Delphi - НУЖНО ПЕРЕРАБОТАТЬ!!!111адыныдын
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
type
_STARTUPINFOA = record
cb :LongWord;
lpReserved :Longword; // Pointer;
lpDesktop :Longword; // Pointer;
lpTitle :Longword; // Pointer;
dwX :LongWord;
dwY :LongWord;
dwXSize :LongWord;
dwYSize :LongWord;
dwXCountChars :LongWord;
dwYCountChars :LongWord;
dwFillAttribute:LongWord;
dwFlags :LongWord;
wShowWindow :Word;
cbReserved2 :Word;
lpReserved2 :LongWord; // Pointer;
hStdInput :THandle;
hStdOutput :THandle;
hStdError :THandle;
end;
TStartupInfo = _STARTUPINFOA;
_PROCESS_INFORMATION = record
hProcess :THandle;
hThread :THandle;
dwProcessId :LongWord;
dwThreadId :LongWord;
end;
TProcessInformation = _PROCESS_INFORMATION;
_SECURITY_ATTRIBUTES = record
nLength :LongWord;
lpSecurityDescriptor:LongWord; // Pointer;
bInheritHandle :LongBool;
end;
TSecurityAttributes = _SECURITY_ATTRIBUTES;
function RunCaptured(const aDirectory, aExeName, aCmdLine:string):string;
var
StartInf :TStartupInfo;
ProcInf :TProcessInformation;
SecAttr :TSecurityAttributes;
TmpSA1 :TSecurityAttributes;
TmpName :string;
TmpHndl :THandle;
TmpRslt :Cardinal;
ProcCreated :LongBool;
TmpSL :TStrings;
begin
Result := 'FAILURE';
TmpName := 'log.txt'; // здесь идет получение имени временного файла.
SecAttr.nLength := SizeOf(SecAttr);
SecAttr.bInheritHandle := True;
TmpHndl := CreateFile(PChar(TmpName), GENERIC_WRITE, FILE_SHARE_WRITE, SecAttr, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
try
StartInf.cb := SizeOf(StartInf);
StartInf.hStdOutput := TmpHndl;
StartInf.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
StartInf.wShowWindow := SW_HIDE;
ProcCreated := true;
ProcCreated := CreateProcess(PChar(aExeName), PChar(aExeName+' '+aCmdLine), TmpSA1, TmpSA1, ProcCreated,0,0,PChar(aDirectory),StartInf,ProcInf);
if(Integer(ProcCreated) = 1)then
begin
SetPriorityClass (ProcInf.hProcess,IDLE_PRIORITY_CLASS);
WaitForSingleObject(ProcInf.hProcess,INFINITE);
GetExitCodeProcess (ProcInf.hProcess,TmpRslt);
CloseHandle(ProcInf.hThread);
CloseHandle(ProcInf.hProcess);
CloseHandle(TmpHndl);
TmpSL := TStringList.Create;
try
TmpSL.LoadFromFile(TmpName);
Result := TmpSL.Text;
finally
TmpSL.Free;
DeleteFile(PChar(TmpName));
end;
end
else
Result := 'Ошибка вызова внешнего приложения';
finally
CloseHandle(TmpHndl);
DeleteFile(PChar(TmpName));
end;
end;
в любом случае, мы получаем лог работы gbak в виде текста.
в этом тексте мы ищем подстроку "COMMITING, FINISHING AND GOING HOME". ну, или как-то так, посомтрите лог Вашего GBAK.
