Ожидание выполнения файла .cmd

[W0LF]

Только, что попробывал на примере:
md NewFolder
copy WinXP.iso c:\Win.iso // кстати, размером в 4.5 гига
del %0
Создал папку, скопировал файл и удалился... Сам...

[Droid]

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

Только, что попробывал на примере:
md NewFolder
copy WinXP.iso c:\Win.iso // кстати, размером в 4.5 гига
del %0
Создал папку, скопировал файл и удалился... Сам...

Да все работает норм, надо было закрыть файл перед удалением.
Но появилась другая проблема эта фнкция работает отлично, вот только когда выполняется .cmd файл, окно видно на экране, я хочу сделать как и в ShellExecute(...,ShowCmd: SW_HIDE); но в функции WinExecute(CmdLine: string; Wait: Boolean): Boolean; этого сделать нельзя... Как можно это сделать красиво ?

function WinExecute(CmdLine: string; Wait: Boolean): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInformation: TProcessInformation;
begin
  Result := True;
  try
    FillChar(StartupInfo, SizeOf(StartupInfo), 0);
    StartupInfo.cb := SizeOf(StartupInfo);
    if not CreateProcess(nil, PChar(CmdLine), nil, nil, True, 0, nil,
    nil, StartupInfo, ProcessInformation) then
      RaiseLastWin32Error;
    if Wait then
      WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
  except
    Result := False;
  end;
end;

[JTG]

uses ..., ShellApi;
...
var ExecInfo: TShellExecuteInfo;
begin
  ZeroMemory(@ExecInfo, sizeOf(ExecInfo));
  with ExecInfo do
  begin
    cbSize := sizeOf(ExecInfo);
    lpVerb := 'open';
    lpFile := 'C:\1.bat';
    lpParameters := '';
    nShow := SW_HIDE;
    fMask := SEE_MASK_NOCLOSEPROCESS;
  end;

  ShellExecuteEx(@ExecInfo);
  WaitForSingleObject(ExecInfo.hProcess, INFINITE);
  CloseHandle(ExecInfo.hProcess);
end;

[Droid]

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

uses ..., ShellApi;
...
var ExecInfo: TShellExecuteInfo;
begin
  ZeroMemory(@ExecInfo, sizeOf(ExecInfo));
  with ExecInfo do
  begin
    cbSize := sizeOf(ExecInfo);
    lpVerb := 'open';
    lpFile := 'C:\1.bat';
    lpParameters := '';
    nShow := SW_HIDE;
    fMask := SEE_MASK_NOCLOSEPROCESS;
  end;

  ShellExecuteEx(@ExecInfo);
  WaitForSingleObject(ExecInfo.hProcess, INFINITE);
  CloseHandle(ExecInfo.hProcess);
end;

Вроде все работает но снова не удаляет файл, в чем я тут намудрил ? (

var
s,put,ppc,k: string;
spravka: TextFile;
ExecInfo: TShellExecuteInfo;
begin
f_PAS.ShowModal;
getdir(0,put);  // 0-номер каталога по умолчанию put-переменная
 showmessage(put) ;

s :=put+'\mysql.exe'+' --user='+f_pas.edit1.Text+
''+' --password='+f_pas.edit2.Text+''+' --database=ps 
< '+put+'\ps.sql';  // создание строки дампа
    k:='del '+'"%0"';
  ZeroMemory(@ExecInfo, sizeOf(ExecInfo));

AssignFile(spravka,put+'\bd'+'.cmd');
Rewrite(spravka);
Writeln(spravka,s);
Writeln(spravka,k);
Reset(spravka);
with ExecInfo do
  begin
    cbSize := sizeOf(ExecInfo);
    lpVerb := 'open';
    lpFile := Pchar(put+'\bd'+'.cmd');
    lpParameters := nil;
    nShow := SW_hide;
    fMask := SEE_MASK_NOCLOSEPROCESS;
  end;

  ShellExecuteEx(@ExecInfo);
  WaitForSingleObject(ExecInfo.hProcess, INFINITE);
  CloseHandle(ExecInfo.hProcess);
end;
    fMask := SEE_MASK_NOCLOSEPROCESS;
  end;

  ShellExecuteEx(@ExecInfo);
  WaitForSingleObject(ExecInfo.hProcess, INFINITE);
  CloseHandle(ExecInfo.hProcess);
end;

[JTG]

%0 в бат-файле возвращает путь уже в кавычках
"%0" даст инвалидный ""C:\path\file.ext""

"%~f0" предпочтительнее, т.к. разворачивает путь в полный с расширением, независимо от того, как запустили батник (из консоли, вообще не указывая расширение, например)