Application.ExeName на винапи

[VVVadim]

Привет всем. Если не трудно подскажите плиз аналог Application.ExeName на винапи. Заранее спасибо!

[goblinyara]

хмм... ну насколько я знаю - paramstr(0)... но на чистом винапи я не писал ещё, так что не знаю, к чему точно относится эта процедура

[ViktorXP]

и без WinApi в делфи встроена функция ParamStr()
с индексом ноль она возвращяет имя модуля.



.. немного опаздал

[VVVadim]

Пасиба!!! (блин ответ короткий пришлось всякую лабуду писать

[BOBAH13]

Читаем MSDN очень внимательно

var
  Chars: array[0..255] of Char;
begin
  FillChar(Chars, SizeOf(Chars), 0);
  GetModuleFileName(HInstance, Chars, SizeOf(Chars));
  MessageBox(0, PCHAR(String(Chars)), 'Application.ExeName', 0);
end;

[Arigato]

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

и без WinApi в делфи встроена функция ParamStr()
с индексом ноль она возвращяет имя модуля.

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

[BOBAH13]

Врятли это реально. Коммандная строка:

myprogram.exe -g -df

Три параметра... програмаа - 1й (он же нулевой) параметр, дальше 2й и 3й... если укажите 1й параметр что-то другое то и программа ваша не запустится

[Arigato]

Врятли это реально.

Почему-то мне кажется, что это реально, но не везде. Например, я не смог этого добиться, возможно, из-за того, что стоит SP2.
Вот, что видим в хэлпе:

ParamStr(0) returns the command used to execute the program, without parameters (for example, ./myprogram). This behavior is dependent on information returned by the shell program and may not be consistent among all shells.

Неоднозначная запись. Я написал такую программку для тестов:

program Project2;

uses
  Dialogs;

var
  I: Integer;
  Str: string;

begin
  Str := '';
  for I := 0 to ParamCount do
    Str := Str + ParamStr (I) + ' ';
  ShowMessage (Str);
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, хотя, в итоге, он всё равно принимает значение полного пути и имени ехе-файла.
Может в других версиях ОС и удастся сделать подмену.

[rpy3uH]

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

Если не трудно подскажите плиз аналог Application.ExeName на винапи.

Блин, почему все забывают про функцию GetCommandLine ?

[Stilet]

Блин, почему все забывают про функцию GetCommandLine ?

Действительно, тем паче что ParamStr вызывает GetCommandLine