Понедельник, 23.11.2020, 22:52 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
delphicode » Delphi » Вопросы по Delphi » Дельфи 7 (не могу запустить файл 1.txt, расположенный на диске D)
Дельфи 7
1x1y1zДата: Среда, 28.07.2010, 16:41 | Сообщение # 1
Был не раз
Зарегистрирован: 12.07.2010
Группа: Пользователи
Сообщений: 11
Статус: Offline
не могу запустить файл 1.txt, расположенный на диске D?
Прошу помочь с процедурой, т.к. я только несколько дней назад начал изучать дельфи
Написал код программного запуска файла, файл скомпилировался но прога запускать данный файл не хочет
Вот код:
program zapusk;

uses
Windows, SysUtils, Forms, ShellApi;

{$R *.res}

function RunFile(const FileName, Params, DefaultDir: string;

ShowCmd: Integer): THandle;
var

zFileName, zParams, zDir: array[0..79] of Char;

begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;

begin
RunFile('1.txt','text_file','d:\1.txt', SW_SHOWNORMAL);
end.

При запуске данной проги винда пишет данную ошибку:
Exception EAccessViolation in module zapusk.exe at 00047737.
Access violation at address 00447737 in module zapusk.exe.
Read of address 00000180.
Прошу подсказать мне ошибку и какая процедура для exe. файлов,
одному мне в 29 лет очень сложно начинать изучать дельфи...

 
dolphinДата: Среда, 28.07.2010, 17:51 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
Доступно только для пользователей

Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
opiusДата: Среда, 28.07.2010, 18:05 | Сообщение # 3
Частый гость
Зарегистрирован: 18.03.2010
Группа: Пользователи
Сообщений: 46
Статус: Offline
Так тоже можно

uses
Windows, SysUtils, Forms;

{$R *.res}

begin
WinExec('notepad d:\1.txt',SW_SHOWNORMAL);
end.

разницы никакой нету happy если будеш запускать exe файлы то поменяй notepad на explorer





Сообщение отредактировал opius - Среда, 28.07.2010, 18:07
 
delphicode » Delphi » Вопросы по Delphi » Дельфи 7 (не могу запустить файл 1.txt, расположенный на диске D)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2020 Хостинг от uCoz