Delphi и командная строка

[Liones]

Нужно выполнить копирование базы Firebird с помощью командной строки.
Использую ShellExecute
Код:

comstr:='"'+utilitpath+'gbak.exe"-b"'+datpath+'DB.gdb""'+arhivpath+'copy.gbk"';
ShellExecute(Handle,'open','cmd',pchar(comstr),nil,sw_show);

сама команда выглядит так:
"путь к утилите" -b "путь к базе" "путь к бэкапу"
Руками из командной строки работает, а из программы не хочет. В чем ошибка?

[Karabash]

Я делаю примерно так (имена переменных другие):

  comstr := '"'+utilitpath+'gbak.exe"';
  parstr := '-b -user SYSDBA -pas masterkey "'+datpath+'EXAMPLE.gdb" "'+arhivpath+'EXAMPLE.gbk"'; 
//имя копии файла не меняю - по расширению видно, что это резервная копия
  ShellExecute(Application.Handle, nil, PChar(comstr), PChar(parstr),
                      PChar(ExtractFilePath(utilitpath)), SW_SHOWNORMAL);

Нормально работает.

[Liones]

наверно у меня какой-то полтергейст, так тоже не работает

[Karabash]

Да вот, перед предыдущим своим ответом проверил - работает.
Скорее всего, мелочь какая-нибудь. С кавычками мудрежь бывает, описка в пути и пр.. Мало ли что.
Еще. ShellExecute возвращает результат (его можно в переменную типа Integer присвоить), а в справке по этой функции в "Windows SDK" (пункт меню Help [D7]) есть список ошибок при выполнении. Их там не так много, но может ошибка подскажет что не так.

[Liones]

ошибка не подсказала. выдает число 42, нигде не сказано что это.

[Karabash]

Потерялся в догадках.
Могу только предложить полный код, в котором проверял все это (выдран из действующего проекта и с некоторыми переделками помещен в новый проект):

procedure TForm1.Button1Click(Sender: TObject);
var 
  Res : Integer;
  utilitpath, datpath, arhivpath, ParStr, ComStr, Err : string;
begin
  utilitpath := 'C:\Program Files\Firebird\Firebird_2_1\bin\';
  datpath := 'E:\_E_\Bases\';
  arhivpath := 'E:\_E_\Bases\Archive\';

  comstr := '"'+utilitpath+'gbak.exe"';
  parstr := '-b -user SYSDBA -pas masterkey "'+datpath+'EXAMPLE.gdb" "'+arhivpath+'EXAMPLE.gbk"';
  Res := ShellExecute(Application.Handle, nil, PChar(comstr), PChar(parstr),
                      PChar(ExtractFilePath(utilitpath)), SW_SHOWNORMAL);
  if Res > 32 then Exit;
  Err := 'Ошибка запуска!'#13#10;
  case Res of
    0: Err := Err+'Для запуска недостаточно памяти.';
    ERROR_FILE_NOT_FOUND: Err := Err+'Указанный файл не найден';
    ERROR_PATH_NOT_FOUND: Err := Err+'Указанный путь не найден';
    ERROR_BAD_FORMAT: Err := Err+'Ошибка запускаемого файла.';
    SE_ERR_ACCESSDENIED: Err := Err+'Доступ к файлу запрещен.';
  end;
  showmessage(Err);
end;

[Stilet]

 if ShellExecute(Application.Handle, nil, PChar(comstr), PChar(parstr),
                      PChar(ExtractFilePath(utilitpath)), SW_SHOWNORMAL)>32 then RaiseLastWin32Error

RaiseLastWin32Error - вывалит текст ошибки.

[soleil@mmc]

или попробовать ручками вбить в командную строку собранную строку в программе (опять же копи-паста работает) и убедиться в ответе

[Liones]

Сообщение от Stilet

 if ShellExecute(Application.Handle, nil, PChar(comstr), PChar(parstr),
                      PChar(ExtractFilePath(utilitpath)), SW_SHOWNORMAL)>32 then RaiseLastWin32Error

RaiseLastWin32Error - вывалит текст ошибки.

вываливается " System Error Code: 126 Не найден указанный модуль" это не находит базу или gbak.exe?

Сообщение от soleil@mmc

или попробовать ручками вбить в командную строку собранную строку в программе (опять же копи-паста работает) и убедиться в ответе

попробовала, чего то делает, а файла копии так и нет
может дело в том, что путь к базе и архиву на русском написан.
попробовала кинуть в другое место, копия получилась

[Stilet]

это не находит базу или gbak.exe?

ИМХО и то и другое...

может дело в том, что путь к базе и архиву на русском написан.

Может быть, а может просто пробелы в пути мешают, тогда строку пути экранируй "" всю.