помогите плз - прога убиваться не хочет

← →
billybons (2002-06-19 09:43) [0]

Подскажите , плз почеиу не работает такая штука :

OpenDialog1.Execute;
TTFileName:=OpenDialog1.FileName;
OpenDialog1.Free;
if TTFileName="" then
begin
ShowMessage("Не выбран TT-файл");
// Halt;
Application.Terminate;
end;
if not FileExists(TTFileName) then
begin
ShowMessage("Не найден файл "+TTFileName);
// Halt;
Application.Terminate;
end;

Show отрабатывает , а прога не кончается ни в какую :(((

← →
Lord Warlock (2002-06-19 09:51) [1]

Это надо писать так:

if OpenDialog1.Execute then
begin
TTFileName:=OpenDialog1.FileName;
if TTFileName="" then
begin
ShowMessage("Не выбран TT-файл");
Application.Terminate;
end;
if not FileExists(TTFileName) then
begin
ShowMessage("Не найден файл "+TTFileName);
Application.Terminate;
end;
end;

← →
billybons (2002-06-19 10:01) [2]

Один черт не вырубается ... где ж еще грабли-то могут быть ?

← →
billybons (2002-06-19 12:15) [3]

Господа, неужели больше никто не поскажет ничего ?

← →
Skier (2002-06-19 12:27) [4]

> billybons
Может быть стоит закрывать главную форму
приложения, а не вызывать Application.Terminate ?

← →
ef2000 (2002-06-19 12:36) [5]

-> billybons
довольно странно, твой код у меня работает..

← →
billybons (2002-06-19 12:41) [6]

Главную закрывать тоже пробовал

← →
Skier (2002-06-19 12:43) [7]

> billybons
И что ? Тоже самое ??

← →
billybons (2002-06-19 12:46) [8]

Ну да ...

← →
ef2000 (2002-06-19 12:49) [9]

-> billybons
попробуй юзануть на другой машине, проблема по-моему не в коде..

← →
billybons (2002-06-19 13:17) [10]

> ef2000

Даже перекомпилировал , но все равно то же самое :(
А у тебя какая версия дельфей ? Неужели и мне пришло время перебираться на D6 ?

← →
ef2000 (2002-06-19 14:02) [11]

-> billybons
D5, Win2k Professional..

← →
VID (2002-06-19 16:32) [12]

2billybons © (19.06.02 13:17)
ну ты ещё на VB перейди :)

попробуй два варианта:
1. HALT;
2. PostMessage(Application.Handle, wm_quit, 0 , 0);

Кстати, ты не юзаешь компоненты RxTrayIcon ?

← →
ZZ (2002-06-19 16:36) [13]

А если
Application.Terminate; Application.ProcessMessages;

помогите плз - прога убиваться не хочет Найти похожие ветки