непонятный глюк командной строги в XP

← →
id_privin © (2003-04-07 18:48) [0]

Ситуация такая : надо узнать содержимое архива. Делаю так :

procedure ExecuteWait(commandLine: string);
var
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
begin
ZeroMemory(@si, sizeof(si));
si.cb := SizeOf(si);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_HIDE;
if not CreateProcess(nil, // No module name (use command line).
PAnsiChar(commandLine), // 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
raise Exception.Create("CreateProcess failed.");
end;

WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);

end;

cmdline := "arj.exe l "" + fileName + "" > out.tem";
ExecuteWait(cmdline);

После чего разбираю полученный файл.
Грабли оказались в том что под Win2k это рабоает. Под Win XP Prof SP1 работает. А под XP который стоит у заказчика (версию не знаю) не работает без объяснения причин.
Понимаю что вопрос очень расплывчатый, но в чем может быть дело?

← →
id_privin © (2003-04-08 11:23) [1]

А как именно не работает?
Какой ХР у заказчика? случаем, не Хоум?
Файл создается?
Может, заказчик прибил (типа, случайно 8-)) arj.exe...
Еще лучше, съездить к заказчику один раз, и увидеть собственными глазами и пощупать под дебаггером.
З.Ы. у него вообще работает вывод результата в файл?

непонятный глюк командной строги в XP Найти похожие ветки