Программа написанная на Delphi не завершается
От: С Виктор Н Россия  
Дата: 26.05.04 07:11
Оценка:
Привет усем.

Проблема в следующем:
Написана программа в Дельфе 6 (из тектового файла с разделителем делает выборку и хранит выборку через ADO соединение (без BDE) в файле MDB (Access 2000) в той же папке что и программа).

Проверял запуск, работу и завершение на 3-х машинах (на всех трех стоит одна и таже XP PRof, Office 2000, Delphi 6):
1. GA-8SIMLH/P4-2/256/80G.
2. ноутбук Celeron-1000/128/30 Gb.
3. Intel Brookdale-G i845GL\P4-1.8\512\60 Gb

На 1 и 2 машинах программа нормально запускается, работает и завершается (как через КРЕСТИК, так и через процедуру Close) как при запуске как отдельная программа, так и при запуске из Дельфи.
На третье следующая проблема —
— когда запускает как отдельная программа: запускается, работает (все нормально), закрываю (что через КРЕСТИК, так и через процедуру Close), форма закрывается, но смотрю диспечер задач, а программа весит как процесс и память занимает.
— запуск программы с компиляцией в Дельфе 6: запускается, работает (все нормально), закрываю (что через КРЕСТИК, так и через процедуру Close), форма закрывается, а Delphi весит как в режиме RUN, чтобы перейти в нормальный режим нажимаю Ctrl-F2.

На этой машине — Windows XP специально переустановил, поставил только драйвера, офис 2000, и дельфи 6 — то же самое.
поставил дельфи 7 — никаких изменений.

procedure Tugal_mf.FormClose(Sender: TObject; var Action: TCloseAction);
Var
RegIni : tRegistry ;
begin
RegIni := TRegistry.Create ;
try
 RegIni.RootKey := HKEY_CURRENT_USER ;
 RegIni.OpenKey(RegDirALUG, True) ;
 RegIni.WriteString(RegKeyDir, pathDir.Text);
finally
 RegIni.Free;
end;
end;


Что делать?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.