• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

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

    Запись на курс до 25 апреля. Получить промодоступ ...

Передача параметров программе

  • Автор темы troo
  • Дата начала
Статус
Закрыто для дальнейших ответов.
T

troo

Здравствуйте.
Кто-нибуть может кратко но понятно рассказать об этом?
И еще помогите мне на конкретном примере:
***Я написал текстовый редактор, а потом сделал так:
*Правая клавиша по текстовому файлу - Открыть с помощью - МОЙ РЕДАКТОР*,
однако программа запустилась, но файл не открыла.
Как мне исправить эту недоработку?
 
Z

zubr

Код:
If ParamStr(1)<>'' then
begin
//Какие то дествия по открытию файла твоей программой (путь к файлу в ParamStr(1))
end;
А вообще, надо пользоваться поиском, здесь на форуме этот вопрос поднимался неоднократно.
 
T

troo

Код:
If ParamStr(1)<>'' then
begin
//Какие то дествия по открытию файла твоей программой (путь к файлу в ParamStr(1))
end;
А вообще, надо пользоваться поиском, здесь на форуме этот вопрос поднимался неоднократно.

Я пользовался поиском, ничего не нашел...

А вот это нужно в "procedure FormCreate(Sender: TObject);" прописывать?
 
T

troo

Так это... ну а допустим есть PROGA.exe, и надо чтоб она при запуске открыла файл c:\FILE.txt (только так: правая клавиша-открыть с помощью PROGA.exe). Вот в этом случае как мне оформить этот код, чтоб все сработало?
 
Z

zubr

Также, как я описал выше. Главное чтобы прога твоя умела открывать соответствующие файлы. Прочитал в ParamStr(1) путь к файлу и открыл его.
 
T

troo

Помогите пожалуйсто найти ошибку в коде:


procedure TFourthSymbolForm.FormCreate(Sender: TObject);
begin
if FileExists(paramstr(1))=true then
begin
edit1.Text:= (paramstr(1));

opendialog.FileName:=(paramstr(1));
memo1.Lines.LoadFromFile(opendialog.FileName);

end;
end;


Мне нужно, чтобы, когда виндоус пердавал парамстр(1) (имя файла) программе, мемо1 этот файл открывал.
Приложение компилируется, работает нормально, ошибок не выдает, но файл не открывает...
 
Z

zubr

1. Код, что ты выложил, должен работать. Единственное, он не рациональный.
Во первых, зачем if FileExists(paramstr(1))=true then достаточно if FileExists(paramstr(1)) then
Во вторых, зачем вообще проверять на наличие файла, ведь юзер на файле уже кликнул.
2. Каковы действия по открытию файла в Memo?
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!