Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Окт

Запустить файл при его перемещении на форму

Posted by micher under Delphi, Архив

Нужно, чтобы при перемещении *.txt файла на иконку моей программы, на рабочем столе, открывалось приложение и автоматически загружало этот файл, например, в Мемо1..

SnX



procedure TForm.FormCreate(Sender: TObject);

var

  i: integer;

  sFile: string;

begin

  for i:=1 to paramcount do

    sFile:=sFile+' '+paramstr(i);
  delete(sFile,1,1);
  if ExtractFileExt(sFile)='.txt' then

    Memo.Lines.LoadFromFile(sFile);

end;

тема на форуме от 2010