Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];
ВнизCreateProcess Найти похожие ветки
← →
lety (2003-01-09 00:22) [0]Для разархивирования делаю так:
CreateProcess(nil,ExtractShortPathName("arj x a.arj"),nil,nil,false,CREATE_DEFAULT_ERROR_MODE, Nil, Nil, stin, stout);
stin забиваю нулями в начале - я не уверена, во всяком случае мне не надо никакое окно показывать.
И проверяю CreateProcess. Ведь если все нормально прошло, значит, он должен быть true? (в примерах видела) А у меня false все время.
Что не так может быть?
← →
Maksss (2003-01-09 02:13) [1]на мыло скину исходняк на рар ун ад
max_one@ukr.net
← →
lety (2003-01-09 22:17) [2]ну где же, где же?..
← →
TTCustomDelphiMaster (2003-01-09 22:43) [3]ShellExecute(Application.MainForm.Handle, nil, PChar("c:\arj.exe"),PChar("c:\a.arj"), nil, SW_HIDE);
← →
lety (2003-01-09 23:02) [4]нет, ShellExecute не подходит, мне надо дождаться конца процесса.
← →
TTCustomDelphiMaster (2003-01-09 23:13) [5]Ученик © (03.09.02 11:23)
{ Project JEDI Code Library (JCL) }
function ShellExecAndWait(const FileName: string; const Parameters: string;
const Verb: string; CmdShow: Integer): Boolean;
var
Sei: TShellExecuteInfo;
Res: LongBool;
Msg: tagMSG;
begin
FillChar(Sei, SizeOf(Sei), #0);
Sei.cbSize := SizeOf(Sei);
Sei.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS or
SEE_MASK_FLAG_DDEWAIT;
Sei.lpFile := PChar(FileName);
Sei.lpParameters := PCharOrNil(Parameters);
Sei.lpVerb := PCharOrNil(Verb);
Sei.nShow := CmdShow;
Result := ShellExecuteEx(@Sei);
if Result then
begin
WaitForInputIdle(Sei.hProcess, INFINITE);
while (WaitForSingleObject(Sei.hProcess, 10) = WAIT_TIMEOUT) do
begin
repeat
Res := PeekMessage(Msg, Sei.Wnd, 0, 0, PM_REMOVE);
if Res then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
until (Res = False);
end;
CloseHandle(Sei.hProcess);
end;
end;
function PCharOrNil(const S: AnsiString): PAnsiChar;
begin
if Length(S) = 0 then
Result := nil
else
Result := PAnsiChar(S);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.017 c