Программа написанная на Delphi не завершается

← →
С Виктор Н © (2004-05-24 15:59) [0]

Привет усем.

Проблема в следующем:
Написана программа в Дельфе 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 - никаких изменений.

Что делать?

← →
Rem (2004-05-24 16:46) [1]

Что за програма? Что делает? Какие действия совершаются в момент завершения программы?...

← →
Алхимик © (2004-05-24 16:51) [2]

Я думаю ошибка в 17-й строке.

← →
С Виктор Н © (2004-05-26 10:51) [3]

Rem

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

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;

Алхимик
/Я думаю ошибка в 17-й строке./

что за 17-ая строка ? если можно по подробнее, плиз.
или это шутка ?

← →
Sandman25+1 (2004-05-26 10:54) [4]

[3] С Виктор Н © (26.05.04 10:51)

Application.OnException не перекрыт? При записи в регистр может возникнуть исключение, тогда форма не будет закрыта.

Программа написанная на Delphi не завершается Найти похожие ветки