как узнать файл загружаемой программы ?

[juan666777]

Как узнать имя файла через который запускаешь программу ?Ну тесть когда например нажимаешь на файл блокнота открывается блокнот и сразу же открывается файл через который ты запускаешь программу .А у меня только сама прога запускается и файл надо искать отдельно.

[pu4koff]

Русский язык сначала изучите. Если я правильно понял этот набор букв, в программе при запуске смотрите значение ParamStr(1)

[Роман Радер]

Русский язык сначала изучите

+1

также бывают моменты когда в пути встречаются пробелы.
тогда ParamStr(1) вернет путь только до первого пробела.
Решение простое, используя ParamCount:

  i:=1;
  s:='';
  while (i<=ParamCount) do
  begin
    s:=s+' '+ParamStr(i);
    inc(i);
  end;                                                    
  delete(s,1,1);

в s - путь к файлу

[Toxa]

если я правильно понял, то он хочет узнать как открыть программу запуская ассоциированные с ней файлы. как например запуская вордовский документ открывается мсворд

[rpy3uH]

если параметр содержит пробелы, то он заключается в кавычки и paramstr спокойно обрабатывает кавычки, например
program.exe "test test" test
ParamStr(1) будет равен test test
ParamStr(2) будет равен test

а чтобы винда передавала длинные параметры заключив в кавычки, надо правильно настраивать этот тип файлов в реестре

[Роман Радер]

надо правильно настраивать этот тип файлов в реестре

просветите если не сложно, как?

[Kotofff]

просветите если не сложно, как?

Например так :

  reg := TRegistry.Create;
  reg.RootKey := HKEY_CLASSES_ROOT;
  reg.OpenKey('.bor\shell\open\command', true);// наше расширение *.bor
  reg.WriteString('', 'C:\Project1.exe %1');
  reg.CloseKey;
  reg.OpenKey('.bor\DefaultIcon',true);// Иконка для нашего файла
  reg.WriteString('', 'C:\Project1.exe,0');// Наша прога
  reg.CloseKey;
  reg.free;

[rpy3uH]

Сообщение от Kotofff

 
  reg.WriteString('', 'C:\Project1.exe %1');

а это самая распространённая ошибка!

можно, например, посмотреть
HKCR\WinRAR\Shell\open\command
там значение по умолчанию
"C:\Program Files\WinRAR\WinRAR.exe" "%1"
т.е. путь в любом случае передаётся в кавычках, в настройках для своего типа файлов надо так же указать. т.е. в любом случае в ParamStr(1) будет находиться путь, даже если в нём будут пробелы
если указать так
"C:\Program Files\WinRAR\WinRAR.exe" %1
то будут глюки

[Toxa]

Сообщение от rpy3uH

т.е. в любом случае в ParamStr(1) будет находиться путь

ParamStr(0) там находится путь, а ParamStr(1) это уже первый параметр

[rpy3uH]

Сообщение от Toxa

ParamStr(0) там находится путь, а ParamStr(1) это уже первый параметр

я и говорю что в ParamStr(1) будет находиться путь к нашему файлу, для которого мы зарегистрировали расширение (например, *.bor), притом даже если в нём будут пробелы.