Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ShellExecute

Автор: Lonley 24.11.2003, 00:20

Привет!!
заметил некую чтучку при
использовании даной функции
==============================
[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:40

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

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