| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
помогите плз - прога убиваться не хочет [D5, Win2k]
billybons © (2002-06-19 09:43:00)Подскажите , плз почеиу не работает такая штука :
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 отрабатывает , а прога не кончается ни в какую :(((
ZZ (2002-06-19 16:36:00) [1]А если
Application.Terminate;
Application.ProcessMessages;
VID (2002-06-19 16:32:00) [2]2billybons © (19.06.02 13:17)
ну ты ещё на VB перейди :)
попробуй два варианта:
1. HALT;
2. PostMessage(Application.Handle, wm_quit, 0 , 0);
Кстати, ты не юзаешь компоненты RxTrayIcon ?
ef2000 (2002-06-19 14:02:00) [3]-> billybons
D5, Win2k Professional..
billybons (2002-06-19 13:17:00) [4]
> ef2000
Даже перекомпилировал , но все равно то же самое :(
А у тебя какая версия дельфей ? Неужели и мне пришло время перебираться на D6 ?
ef2000 (2002-06-19 12:49:00) [5]-> billybons
попробуй юзануть на другой машине, проблема по-моему не в коде..
billybons (2002-06-19 12:46:00) [6]Ну да ...
Skier (2002-06-19 12:43:00) [7]> billybons
И что ? Тоже самое ??
billybons (2002-06-19 12:41:00) [8]Главную закрывать тоже пробовал
ef2000 (2002-06-19 12:36:00) [9]-> billybons
довольно странно, твой код у меня работает..
Skier (2002-06-19 12:27:00) [10]> billybons
Может быть стоит закрывать главную форму
приложения, а не вызывать Application.Terminate ?
billybons (2002-06-19 12:15:00) [11]Господа, неужели больше никто не поскажет ничего ?
billybons (2002-06-19 10:01:00) [12]Один черт не вырубается ... где ж еще грабли-то могут быть ?
Lord Warlock (2002-06-19 09:51:00) [13]Это надо писать так:
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;
| |
