Архив форумов ЦИТФорума

[monster]

Помогите пожалуйста!!!!
Откликнитесь, кому не лень!!!!
Ситуация такая - с помощью програмки грохается процес!!!! потом запускается какой-нибудь другой процесс!!!!
проблема заключается в следующем - после удаления процесса, память не освобождается!!! и при нескольких удалениях и запусках новых процессов, выдается сообщение, что памяти не хватает!!!!
ПОМОГИТЕ РЕШИТЬ!!!
ЗАРАНЕЕ БЛАГОДАРЕН!!!!
MONSTER!!!

[kleo]

А с помощью какой проги???

[Daiser]

А какая ОСь?

[and3008]

Память обычно берут функцией malloc, а особождают функцией free.
Если процесс убивается админом, память не всегда освобождается. Например если программер замутил использование этой память с какими-нибудь системными API, то система честно считает что память еще нужна.

Что сказать... Надо код проги глядеть.

[Andy_user]

Каждый процесс имеет Handle процесса. При выделении памяти по запросу процесса создается Handle объекта под названием "память". Handle памяти - это индекс в таблице памяти. В записи (строке) этой таблицы содержится информация о Handle процесса, запросившего память, указатель на начало этой памяти, объем выделенной памяти. При аварийном (принудительном) завершении процесса запись в таблице выделенной памяти остается, а процесса с таким Handle уже нет. Доступ к этой таблице возможен ТОЛЬКО из режима ядра ОС. Вывод - подчистить таблицу можно только имея код, работающий в режиме ядра (например драйвер).

Смотри код программы, не смотри - все едино...

[monster]

Прога написана на Delphi!!!
Создаётся процесс (запускается прог-ма через [ShelEvecuteEx]), потом этот процесс грохается Terminate procces, в результате память не освоюождается. После нескольких подобных процедур, выдаётся сообщение о нехватки памяти и происходит зависание!!!
Monster!

[monster]

Под WinNT!!!!!

Прога написана на Delphi!!!
Создаётся процесс (запускается прог-ма через [ShelEvecuteEx]), потом этот процесс грохается Terminate procces, в результате память не освоюождается. После нескольких подобных процедур, выдаётся сообщение о нехватки памяти и происходит зависание!!!
Monster!!!!

[monster]

Расскажи, пожалуйста, поподробней о том как подчистить таблицу!!! Как это вообще делается, если не трудно!!!
Вот код этой проги:
// Запуск проги

procedure TForm1.RunCalliseum();
begin
ExecuteFile:='D:\Calliseum\callman.exe';
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode STILL_ACTIVE) or Application.Terminated;
end
else ShowMessage('Error starting Calliseum!');
end;

..
// Процесс терминэйтится и опять запускается
TerminateProcess(SEInfo.hProcess, ExitCode);
RunCalliseum();
Monster!!!!

[monster]

Может ты подскажешь, что добавить в код,чтоб память освобождалась???
Вот код этой проги:
// Запуск проги

procedure TForm1.RunCalliseum();
begin
ExecuteFile:='D:\Calliseum\callman.exe';
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode STILL_ACTIVE) or Application.Terminated;
end
else ShowMessage('Error starting Calliseum!');
end;

..
// Процесс терминэйтится и опять запускается
TerminateProcess(SEInfo.hProcess, ExitCode);
RunCalliseum();
Monster!!!

[Daiser]

Тогда я не совсем понимаю, что ты делаешь. Если ты запускаешь внешнюю программу, то по ее нормальном завершении TerminateProcess тебе совершенное не нужен - она же сама завершилась. А TerminateProcess служит для аварийного завершения процесса в случае критической ошибки. При этом все объекты созданные процессом (в том числе и выделенная память) сохраняются в системе. Т.е. все у тебя нормально ) Почитай MSDN на эту тему.

[monster]

Нет... Понимаешь, тут такая штука, что внешнюю программу время от времени приходится заверщать именно через TerminateProcces, потом я делаю кае-какие изменения и запускаю прогу занова, подругому никак нельзя.... Вот в чём проблема та...
Monster!!!
Если хочешь, то посмотри код проги:
// Запуск проги

procedure TForm1.RunCalliseum();
begin
ExecuteFile:='D:\Calliseum\callman.exe';
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode STILL_ACTIVE) or Application.Terminated;
end
else ShowMessage('Error starting Calliseum!');
end;

..
// Процесс терминэйтится и опять запускается
TerminateProcess(SEInfo.hProcess, ExitCode);
RunCalliseum();

[Daiser]

Может есть смысл запускать программу из отдельно созданного потока (CreateThread), который ты можешь в любой момент корректно завершить.

[Daiser]

Да, и попробуй задать этот вопрос в форуме по программированию.

[and3008]

-

[monster]

Он объявляется глобально, и является набором свойств, для ShelExecuteEx....

[monster]

Мпасибо за совет....
Примного благодарен!!!
Vjycnth

[bary]

Для завершения какого либо приложения или процесса удаленно на тачке можно использовать прогу Hyena www.systemtools.com там посмотри может и не нужна тебе твоя писанина на Делфи
_________________
Bari Murtazin - MSFT

[monster]

А что конкретно выполняет данная программа???