Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Файловая система
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.09.2011, 08:54
Аватар для @san4ez
@san4ez @san4ez вне форума
Прохожий
 
Регистрация: 12.07.2011
Сообщения: 11
Репутация: 10
По умолчанию Условие*

Всем привет.

Вопрос:

Есть форма на ней таймер и едит
таймер ищет окно с неким названием и выводит его путь в едит
так вот он выводит его немного коряво=(

т.е. когда такое окно открыто он пишет путь в едит, а когда окно не запущено это, то выводит в едит Свой путь(путь до самой себя)
типо того:
Код:
C:\projects\project1.exe

Хочу сделать условие т.е. если в едит есть нужное название файла(name.exe) к примеру так
Код:
C:\folder\name.exe
тогда showmessage....

p.s. нужынй файл не факт что в диске Ц или Д он хоть где может быть(

Последний раз редактировалось @san4ez, 20.09.2011 в 09:00.
Ответить с цитированием
  #2  
Старый 20.09.2011, 09:26
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

ExtractFilename?
Ответить с цитированием
  #3  
Старый 20.09.2011, 09:47
Аватар для @san4ez
@san4ez @san4ez вне форума
Прохожий
 
Регистрация: 12.07.2011
Сообщения: 11
Репутация: 10
По умолчанию

Цитата:
Сообщение от Pyro
ExtractFilename?

не получится....
Нужно сделать как-нибудь проверку в едит1 на наличие текста
Код:
name.exe
(с конца)

если есть - действие
Ответить с цитированием
  #4  
Старый 20.09.2011, 09:49
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

extractfilename('C:\folder\name.exe') вернет 'name.exe'
Ответить с цитированием
  #5  
Старый 20.09.2011, 09:55
Аватар для @san4ez
@san4ez @san4ez вне форума
Прохожий
 
Регистрация: 12.07.2011
Сообщения: 11
Репутация: 10
По умолчанию

Цитата:
Сообщение от Pyro
extractfilename('C:\folder\name.exe') вернет 'name.exe'

Это понятно что он вернет name.exe

Пойми, в едит 1 по умолчанию весит всегда путь
Код:
C:\projects\project.exe

когда запускается отслеживаемое окошко, то таймер выводит путь отслеживаемого окна
уже
Код:
C:\okno\okno.exe

т.е. путь в едит1 висит всегда либо от запущенного файла либо от отслеживаемого окна....
Код:
extractfilename
- будет всегда выводить условие

понял в чем суть?

Последний раз редактировалось @san4ez, 20.09.2011 в 09:58.
Ответить с цитированием
  #6  
Старый 20.09.2011, 10:06
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

нет
PHP код:
if extractfilename(edit1.text) = 'name.txt' then 
это чтоли?

Последний раз редактировалось Pyro, 20.09.2011 в 10:12.
Ответить с цитированием
  #7  
Старый 20.09.2011, 10:12
Аватар для @san4ez
@san4ez @san4ez вне форума
Прохожий
 
Регистрация: 12.07.2011
Сообщения: 11
Репутация: 10
По умолчанию

Цитата:
Сообщение от Pyro
нет

Путь:
C:\123\123.exe
Extractfilename - что покажет ???? правильно!!! 123.exe

Путь
D:\666\666.exe
Extractfilename - что покажет ???? правильно!!! 666.exe

понял?

Нужно узнать если есть в едит1 текст name.exe тогда вывести месагу



(up!!)
Ответить с цитированием
  #8  
Старый 20.09.2011, 10:15
Аватар для @san4ez
@san4ez @san4ez вне форума
Прохожий
 
Регистрация: 12.07.2011
Сообщения: 11
Репутация: 10
По умолчанию

Цитата:
Сообщение от Pyro
PHP код:
if extractfilename(edit1.text) = 'name.txt' then 
это чтоли?

В точку =)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:34.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter