VPF::ShellExecute - Форум программистов

Lonley

Дата 24.11.2003, 00:20 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 597
Регистрация: 7.10.2003
Где: северные ворота М урманск

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

Привет!!
заметил некую чтучку при
использовании даной функции
==============================
[color=red]
ИЛИ ДАЖЕ С ПРЕОБРАЗОВАНИЕМ PAnsiChar
то выдает ошибку I/O 32
==============================

Код


//-------------------------
  ShowMessage('-='+GRF_Fil_Name+'=-');
//-------------------------
  AssignFile(Fil,GRF_Fil_Name);{$I-}
  Reset(Fil);{$I+}
   if IOResult<>0 then
    begin
     ShowMessage('К сожалению такакго файла нет'+#10#13+
                 '-='+GRF_Fil_Name+'=- но мы его'+#10#13+
                 'создадим');
     AssignFile(Fil,GRF_Fil_Name);
     Rewrite(Fil);
     Write(Fil,'sx'+#00#00);    //Пишем заголовок файла
                                //дабф создать пустой формат
    CloseFile(Fil);
//ShellExecute(Form1.Handle,'open',PAnsiChar(GRF_Fil_Name),nil,nil,SW_MAXIMIZE);
//WinExec('shemebuilder c:\linii1\МЛ-13.sx', SW_SHOW);
    end else
      begin

ShellExecute(Form1.Handle,
             'open',
             'c:\linii1\w.sx',{PAnsiChar(GRF_Fil_Name),}/
             nil,
             nil,
             SW_MAXIMIZE);

      end;
   end;

Это сообщение отредактировал(а) Lonley - 24.11.2003, 01:38

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

Земную жизнь пройдя до половины,
Я очутился в сумрачном лесу,
Утратив правый путь во тьме долины.
Каков он был, о, как произнесу,
Тот дикий лес, дремучий и грозящий,

Lonley

Дата 24.11.2003, 01:40 (ссылка)

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

Загрузка ...

Опытный

-=-=-
Простите но вопорос снимаю
разобраслся блин
УЖЕ почти спать лег а тут в голову как дало
I/O 32 это же файл открыт другим процессссссом

Вот где собака порылась

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

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