Не знаю как убрать ошибки - Общие вопросы Delphi

BoT_T · 02.10.2010, 21:55

Код:

if copy(s,1,4)='exe.' then
WinExec(pchar(copy(msg,5,length(msg))), SW_RESTORE);

Этот код получает команда. Если первые ее 4 символа равны exe. , то программа запускает файл, имя которого указано в команде после exe. . Если же такого файла нет, то вылазит ошибка, и работа программы прекращаеться. Как сделать так, что бы если файла не существует, то например выполнялась команда form1.close; ? Я совсем чайник в дельфи.

Hacker19_90 · 02.10.2010, 21:58

Код:

try
    if copy(s,1,4)='exe.' then
    WinExec(pchar(copy(msg,5,length(msg))), SW_RESTORE);
except 
    form1.close;

GunSmoker · 03.10.2010, 03:50

Трояна пишем?

Stilet · 03.10.2010, 09:48

Цитата:

Hacker19_90

Ой как все сложно...
А по старинке:

Код:

    if (copy(s,1,4)<>'exe.')
or(WinExec(pchar(copy(msg,5,length(msg))), SW_RESTORE)<31) 
then ExitProcess(0);

edwardvk · 05.10.2010, 23:39

Для того, чтобы выяснить ест ли в наличии файл, есть функция в модуле SysUtils
function FileExists(const FileName: string): Boolean;

Например:

uses ... , SysUtils, ...;

if FileExists(copy(s, 5, length(s) - 4)) then
begin
// Все вхорошо
end
else
begin
// Надо чего-то делать...
end;

02.10.2010, 21:55	#1
BoT_T Пользователь Регистрация: 19.09.2010 Сообщений: 50	Не знаю как убрать ошибки Код: `if copy(s,1,4)='exe.' then WinExec(pchar(copy(msg,5,length(msg))), SW_RESTORE);` Этот код получает команда. Если первые ее 4 символа равны exe. , то программа запускает файл, имя которого указано в команде после exe. . Если же такого файла нет, то вылазит ошибка, и работа программы прекращаеться. Как сделать так, что бы если файла не существует, то например выполнялась команда form1.close; ? Я совсем чайник в дельфи. ICQ 611 - 892

02.10.2010, 21:58	#2
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Код: `try if copy(s,1,4)='exe.' then WinExec(pchar(copy(msg,5,length(msg))), SW_RESTORE); except form1.close;` *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

03.10.2010, 03:50	#3
GunSmoker Старожил Регистрация: 13.08.2009 Сообщений: 2,581	Трояна пишем? Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
не знаю как доделать	malir	Помощь студентам	0	16.12.2009 17:14
Как такое сделать (извените. но даже не знаю как это называется)	Van'Denis	HTML и CSS	3	30.08.2009 10:46
Какието ошибки в js не знаю на что жалуется.	Вавел из ГМТУ	JavaScript, Ajax	2	06.08.2009 00:23
Не знаю как и сказать...	Старовъръ	Общие вопросы Delphi	4	29.06.2008 09:23

05.10.2010, 23:39	#5
edwardvk Новичок Джуниор Регистрация: 03.10.2010 Сообщений: 3	Для того, чтобы выяснить ест ли в наличии файл, есть функция в модуле SysUtils function FileExists(const FileName: string): Boolean; Например: uses ... , SysUtils, ...; if FileExists(copy(s, 5, length(s) - 4)) then begin // Все вхорошо end else begin // Надо чего-то делать... end;