Запрос в коммандную строку

[ramzes777]

Нужно выполнить запрос в коммандной строке:

convert -size 100x100 canvas:khaki c:\canvas_khaki123123123.gif

Когда сам запускаю коммандную строку и ввожу запрос, он работает.
Из программы - не работает.
ShellAPI юзается.

Вот сам код:

procedure TForm1.Button1Click(Sender: TObject);
var str:String;
begin

{str:='C:\WINDOWS\system32\cmd.exe convert -size 100x100 canvas:khaki c:\canvas_khaki123123123.gif';



WinExec(pchar(str),0); }

{ShellExecute(0,'open','cmd.exe','/k convert -size 100x100 canvas:khaki c:\canvas_khaki123123123.gif','C:\Windows\system32\',SW_SHOW);
}

{ShellExecute(Handle, nil, 'c:\windows\system32\cmd.exe', '/k '+'convert -size 100x100 canvas:khaki c:\canvas_khaki123123123.gif', nil, SW_SHOW);}
WinExec (PChar('C:\WINDOWS\system32\cmd.exe' + ' ' + 'convert -size 100x100 canvas:khaki c:\canvas_khaki123123123.gif'), SW_HIDE);

end;

То что в {} - это не рабочие варианты тоже.

[Serge_Bliznykov]

1) CONVERT - в Вашем случае что?! (BAT или EXE/COM) ?

2) а какое отношение Ваш convert.exe имеет к командам OS ?
Вы для чего добавляете запуск через командный процессор?
(я имею в виду cmd.exe /k .... )

3) так, навскидку, я бы рекомендовал Вам попробовать воспользоваться следующим кодом:

procedure PackFile( sFName, sDestPath : string);
var si:TStartupInfo;
    pi:TProcessInformation;
    cmdline:string;

begin
    ZeroMemory(@si,sizeof(si));
    si.cb:=SizeOf(si);
    cmdline:='C:\полный_путь_к_convert.exe\convert.exe -size 100x100 canvas:khaki c:\canvas_khaki123123123.gif';
    if not CreateProcess( nil, // No module name (use command line).
        PChar(cmdline),  // Command line.
        nil,             // Process handle not inheritable.
        nil,             // Thread handle not inheritable.
        False,           // Set handle inheritance to FALSE.
        0,               // No creation flags.
        nil,             // Use parent's environment block.
        nil,             // Use parent's starting directory.
        si,              // Pointer to STARTUPINFO structure.
        pi )             // Pointer to PROCESS_INFORMATION structure.
       then
        begin
         WriteLn( 'CreateProcess failed. ('+cmdline+')' );
         Exit;
        end;
    WaitForSingleObject( pi.hProcess, INFINITE );
    CloseHandle( pi.hProcess );
    CloseHandle( pi.hThread );
    WriteLn('Done !');
end;

[Silver_S]

WinExec('convert -size 100x100 canvas:khaki c:\canvas_khaki123123123.gif', SW_HIDE);

Не нужно запускать командную строку