Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как отрыть текстовый файл с помощью делфи? [D7, WinXP]

Muhan_ © (2006-03-30 01:59:00)
Надо чтобы по нажатию в менюшке вылетал файл хелп! :) Заранее созданный мной ) вот.. )
Спасибо)

Mozgan (2006-03-30 16:38:00) [1]
А как спрашивается, звездами становятся :)
===================================
Пришел Вовока дамой в слезах.
Мать: - В чем дело?
Вова: - Я люблю её с первого этажа....
Мать: - Не люби её, ты же знаешь, у неё стеклышко разбито...
Бабка:- В чем дело внучок?
Вова: - Я люблю её с первого этажа....
Бабка: - Не люби её, ты же знаешь, у неё стеклышко разбито...
Пахан: - В чем дело Сын?
Вова: - Я люблю её с первого этажа....
Пахан: - МОЛОДЕЦ! Любишь кататься- Люби и катайся!
Вова: - Спасибо! Но мама с бабушкой говорят, чтобы я её не любил: у ней стеклышко разбито...
Пахан: - Вовча! Когда я на твоеё маме женился, у нее не только стеклышко было разбито, но и рамы шатались!!!

УДАЧИ ВСЕМ!!!

Mozgan (2006-03-30 16:32:00) [2]
Блин...
Тако не реально:)
Попробуй такое дело:
1. Сохранить свой проект в другой каталог, типа TEST.
2. Скопирую свой "нужный" файл в это папку (TEST)
3. Откомпилирую проект и запусти прогу.

Странно. У меня все без проблем работает.
Значит ты чета не так настроил в осях, что такая хрень ползет.
У меня работает :)

Muhan_ (2006-03-30 16:31:00) [3]
все все...помогло )

Muhan_ (2006-03-30 16:31:00) [4]
спасибо ..все ок..заработало )) файй назвал не так.... отлично )

Anatoly Podgoretsky (2006-03-30 16:29:00) [5]
Так звезды выпали.

Muhan_ (2006-03-30 16:27:00) [6]
нифига ...он пытется открыть файла на рабочем столе :(
сразу отвечаю : программа не находится на рабочем столе ))
ShellApi.ShellExecute(application.Handle,'open','help.txt',nil,nil,SW_SHOW);
вот так пробую

Mozgan (2006-03-30 16:21:00) [7]
Пробуешь - хорошо!
Я тоже пробую и учусь самостоятельно! :)
В чем твоя ошибка: Нужно указать параметр nil.
Это означает, что в текущем каталоге разыскивается нужный файл.
Держи! Если сработало/несработало дай знать! Душа все-таки болит :)

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellApi.ShellExecute(application.Handle,'open','test.txt',nil,nil,SW_SHOW);
end;

Muhan_ (2006-03-30 16:18:00) [8]
ShellApi.ShellExecuteA(application.Handle,'open','test.txt',nil,'C:\',SW_SHOW);
ну заменяю 'c:\' на application.name
пробывал и на extractfilepath(application.ExeName)
ничего не хочет...)
напиши просто что надо вместо с:\ написать когда файл находится в каталоге программы

Mozgan (2006-03-30 16:09:00) [9]
Покажи, ч то и как пишешь. Текст покажи.

Muhan_ (2006-03-30 16:08:00) [10]
нифига не получается..надо чтобы вместо диска с был каталок программы....он хочет чтобы я ему дал в пансичар...а не в стринг

Mozgan (2006-03-30 15:47:00) [11]
Для начала подключи ShellApi в uses .
Потом, если файл на диске С, то пиши так:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellApi.ShellExecuteA(application.Handle,'open','test.txt',nil,'C:\',SW_SHOW);
end;

А вот если файл находится в текущем каталоге, что и прога используй, Application.name и в таком же духе пахай. И все пудет Кока-Кола :)

А так лучше всего ориентироваться по всплывающим хинтам. Благо Delphi даёт добро чайникам. :)))

balepa (2006-03-30 15:08:00) [12]

> Muhan_ (30.03.06 15:04) [4]
> 1. какие параметры указывать
> 2. почему эта процедура вообще не распознается

1. Сначала 2 сделай
2. подключи модуль ShellApi

Muhan_ (2006-03-30 15:04:00) [13]
должен вылетать файл!! текстовый!! открываться он должен...не каких read и assign

что то вроде этого
Используй Shellexecute(0,Nil,@Имя файла,@Параметры командной строкиэ,@Директория запуска,Тип запуска);

но я чего то не понимаю :
1. какие параметры указывать
2. почему эта процедура вообще не распознается

PZ (2006-03-30 09:45:00) [14]
Memo1.Lines.LoadFromFile('...txt');

tesseract (2006-03-30 09:08:00) [15]
help в каком формате???

если текст то есть такие функции как AssighnFile/Read.

если *.hlp то

Application.HelpCommand(HELP_Finder,0);

Rial (2006-03-30 02:13:00) [16]
Используй Shellexecute(0,Nil,@Имя файла,@Параметры командной строкиэ,@Директория запуска,Тип запуска);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »