Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Вниз

CreateProcess в WinXP   Найти похожие ветки 

 
-= Demon =-   (2003-09-15 13:13) [0]

Добрый день! Столкнулся с проблемой создания процесса в WinXP. Во всех остальных операционках ее нет (просто сообщение об ошибке и невозможности дальнейшей работы). Вот рабочая функция:

function Exec(cmd, dir: string; ToShow: Boolean): boolean;
var
pi: TProcessInformation;
si: TStartupInfo;
begin
ZeroMemory(@si, sizeof(si));
si.cb:=SizeOf(si);
si.lpReserved:=nil;
si.lpDesktop:=nil;
si.lpReserved2:=nil;
si.cbReserved2:=0;
if ToShow then
si.wShowWindow:=SW_SHOWNORMAL
else
si.wShowWindow:=SW_HIDE;
si.dwFlags:=STARTF_FORCEONFEEDBACK + STARTF_USESHOWWINDOW;
si.lpTitle:=PChar(sTitle);

Result:=CreateProcess(
nil, // pointer to name of executable module
PChar(cmd), // pointer to command line string
nil, // pointer to process security attributes
nil, // pointer to thread security attributes
False, // handle inheritance flag
REALTIME_PRIORITY_CLASS, // creation flags
nil, // pointer to new environment block
nil, // pointer to current directory name
si, // pointer to STARTUPINFO
pi // pointer to PROCESS_INFORMATION
);

WaitforSingleObject(pi.hProcess, INFINITE);
TerminateProcess(pi.hProcess, 0);
end;
//---------------------------------------------------------

Кто-нибудь сталкивался с подобным? Как смогли решить проблему? Главная задача - запустить другое приложение и дождаться его завершения. Напоминаю, работает ВЕЗДЕ, КРОМЕ WIN"XP!


 
Nikolay M.   (2003-09-15 13:27) [1]

У меня этот код работает.
Может, не стоят сервис-паки на ХР/дельфи или нет прав на запуск процессов с приоритетом REALTIME_PRIORITY_CLASS?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.011 c
3-82156
freeman2003
2003-09-03 16:38
2003.09.25
Не выполняется хранимая процедура на SQL server из delphi


14-82410
Soft
2003-09-01 18:39
2003.09.25
Счастливы ли сумасшедшие?


3-82048
XQuest
2003-09-02 15:29
2003.09.25
Соединение с SQL Server 2000


6-82351
Alex Soloviov
2003-07-26 16:28
2003.09.25
Компоненты TServerSocket, TClientSocket и человеческие ручки


4-82541
xZero
2003-07-23 22:43
2003.09.25
Меню





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский