Application.ExeName на винапи

[Somebody]

ParamStr(0) всегда даёт нормальный путь. Из ParamStr:

 if Index = 0 then
    SetString(Result, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)))

[Arigato]

Ситуация прояснилась. Нормальный путь даёт Делфи, но подменить параметр 0 в самой системе возможно. Вот пример, выводим всю командную строку:

uses
  Dialogs;

const kernel = 'kernel32.dll';

function GetCommandLine: PChar; stdcall;
  external kernel name 'GetCommandLineA';

begin
  ShowMessage (GetCommandLine);
end.

Теперь, если вызвать эту программу так:

procedure TForm1.Button1Click(Sender: TObject);
var
  ProcessInfo: TProcessInformation;
  StartUpInfo: TStartupInfo;
begin
  if OpenDialog1.Execute then
  begin
    FillChar (StartUpInfo, SizeOf (StartUpInfo), 0);
    StartUpInfo.cb := SizeOf (StartUpInfo);
    StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartUpInfo.wShowWindow := SW_SHOWNORMAL;
    CreateProcess (PChar (OpenDialog1.FileName), 'C:\WINDOWS\NOTEPAD.EXE the1st', nil, nil, False, 0,
      nil, 'C:\WINDOWS\', StartUpInfo, ProcessInfo);
  end; {if}
end;

То мы получим подменённый 0-й параметр, т.е. там будет "C:\WINDOWS\NOTEPAD.EXE".
Мягко говоря, реализация функции ParamStr противоречит тому, что описано в хэлпе.

[Stilet]

Arigato

Чет я не догнал, параметр 0 - это C:\WINDOWS\NOTEPAD.EXE
В чем же тут подмена, о которой ты говориш?

[Arigato]

Ну так я запуская свою программу, в которую передаётся 0-вой параметр в виде C:\WINDOWS\NOTEPAD.EXE, т.е. не путь к проге, а путь к блокноту

[Stilet]

Arigato

Опять не вьехал...
Ты запускаш свою прогу так:

project1.exe C:\WINDOWS\NOTEPAD.EXE

Но ParamStr(0) - как и сказанно правильно в хелпе - returns the command used to execute the program, without parameters
т.е. все правильно и законо и никакая подмена не пройдет.
И вернет оно тебе <путь>\Project1.exe

[FaTaL]

Хоть и поднимаю некротему, но всё равно на чём сошлись то?
Что всё таки точнее всего будет указывать путь к моему запускаемому файлу ParamStr(0) или Application.ExeName?

[Serge_Bliznykov]

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

Хоть и поднимаю некротему, но всё равно на чём сошлись то?
Что всё таки точнее всего будет указывать путь к моему запускаемому файлу ParamStr(0) или Application.ExeName?

не знаю, на чём там сошлись, но, если речь идёт про Delphi, то это, строго говоря - ОДНО И ТО ЖЕ.

точнее, в модуле Forms
у application есть такое:

  TApplication = class(TComponent)
  private
...
    function GetExeName: string;
...
  public
...
    property ExeName: string read GetExeName;
...

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

какие-нибудь вопросы по поводу того, что лучше, ещё остались?

[FaTaL]

Нет. Спасибо.