ShellExecuteEx и ошибка 1155

← →
Alkid © (2006-07-28 13:45) [0]

Приведённый ниже код должен запускать спец.программку, передавая ей свой ProcessID в параметрах и при успешном запуске закрывать приложение. Однако ShellExecuteEx не срабаывает, возвращая ошибку 1155: No application is associated with the specified file for this operation.
Исполняемый файл по указанному пути находится, проверял. Разрешения тоже все в норме. Помогие разобраться, плз.
Код:
procedure TExportManager.beginImport; var info : TShellExecuteInfoA; begin with info do begin cbSize := sizeof(Info); fMask := SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS; lpFile := PChar(Path + "exportAgent.exe"); lpParameters := PChar(IntToStr(GetCurrentProcessID()) + " import"); lpDirectory := nil; nShow := SW_HIDE; end; if(ShellExecuteEx(@info) = true) then Application.Terminate() else LogError("TExportManager.beginImport: Ошибка при запуске экспортного агента. GetLastError: " + IntToStr(GetLastError)); end;

← →
Мефисто (2006-07-28 14:03) [1]

ERROR_SHUTDOWN_IN_PROGRESS = 1115;

← →
Мефисто (2006-07-28 14:06) [2]

Промазал :)

1155 No application is associated with the specified file for this operation. ERROR_NO_ASSOCIATION

← →
Alkid © (2006-07-28 14:12) [3]

Ну я это заметил, а вот почему? Я же не пытаюсь открыть doc какой-нибудь, я пытаюсь исполняемый файл запустить. Кроме того, данный код у меня уже прекрасно работал в другом приложении, а в данном контексте стал вот такие фортеля выкидывать...

← →
Мефисто (2006-07-28 21:43) [4]

Виновен мусор в рекорде из памяти:

FillChar(info, SizeOf(info), #0);

ShellExecuteEx и ошибка 1155 Найти похожие ветки