VPF::Помогите открыть файл :) - Форум программистов

Vavik

Дата 22.9.2009, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет

Вообщем вот таким способом мне надо открыть файл, а он почему-то не открывается :(

Код


procedure TForm1.Button1Click(Sender: TObject);
var FName2: string;
begin
begin
if OpenDialog1.Execute then
FName2:=OpenDialog1.FileName;

ShellExecute(Handle, 'open', '+ FName2 +', nil, nil, SW_SHOW);
end;

end;

Keeper89

Дата 22.9.2009, 21:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Как найдете файл

Цитата

+ FName2 +

откроется. smile

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

THandle

Дата 22.9.2009, 21:12 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Vavik, переменную записывать надо без кавычек smile

А вообще в коде много лишнего. Не понятно зачем еще одни begin..end и зачем введена переменная.

Как то так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ShellExecute(Handle, 'open', OpenDialog1.FileName, nil, nil, SW_SHOW);
end;

Vavik

Дата 22.9.2009, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет

Цитата(Keeper89 @ 22.9.2009, 21:08)

Как найдете файл

Цитата

+ FName2 +

откроется. smile

Ну так я на кнопочку жмакаю, открывается диалоговое окно, выбираю файл, потом путь должен заноситься в Fname2, после чего я его сую в ShellExecute, а оно чёт не работает.

Цитата(THandle @ 22.9.2009, 21:12)

Vavik, переменную записывать надо без кавычек smile

А вообще в коде много лишнего. Не понятно зачем еще одни begin..end и зачем введена переменная.

Как то так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ShellExecute(Handle, 'open', OpenDialog1.FileName, nil, nil, SW_SHOW);
end;

Неа, без кавычек не работает.

Это сообщение отредактировал(а) Vavik - 22.9.2009, 21:18

Keeper89

Дата 22.9.2009, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Vavik, THandle дал рабочий код, что не работает? Опять ошибка в 17 строке?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Vavik

Дата 22.9.2009, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет

Цитата(Keeper89 @ 22.9.2009, 21:28)

Vavik, THandle дал рабочий код, что не работает? Опять ошибка в 17 строке?

Нерабочий он.

Данкинг

Дата 22.9.2009, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Вот определённо рабочий код:

Код


ShellExecute(Application.Handle, 'open', pchar('cenn.FXP'), nil, nil, SW_NORMAL);

--------------------

There's nothing left but silent epitaphs.

Keeper89

Дата 22.9.2009, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Данкинг, мы тут гадаем, что же не работает, ты присоединится решил? smile

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

neweraser

Дата 22.9.2009, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

давно не был здесь, немного поофтопю
Vavik, что конктретно тебе нужно? у THandle рабочий код, в общем-то он стандартный и не может не работать, при нажатии кнопки открывается окно выбора файла, тот файл который ты выберешь и откроется, приведи весь код, где он открывается, что открывается

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 22.9.2009, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Keeper89, файл не открывается, понятно же. smile

У меня pchar в примере есть - вдруг поможет.

--------------------

There's nothing left but silent epitaphs.

Vavik

Дата 22.9.2009, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет

Цитата(Данкинг @ 22.9.2009, 21:51)

Вот определённо рабочий код:

Код


ShellExecute(Application.Handle, 'open', pchar('cenn.FXP'), nil, nil, SW_NORMAL);

Вот этот да, рабочий smile

Пасиб.

Данкинг

Дата 22.9.2009, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Vavik @ 22.9.2009, 23:17

)

Вот этот да, рабочий

Я выиграл главный приз?! smile

Помечай тему решённой тогда.

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »