Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

Код:

var
  SR: TSearchRec;
  FindResult: Integer;
  s: string;
begin
  FindResult := FindFirst('C:\lol\*.exe', faAnyFile, SR);
  if FindResult = 0 then
  begin
    s := SR.Name;
    WinExec(PChar(s), SW_SHOW);
  end;
end;

Тогда вот так

Код:

Код:

var
  SR: TSearchRec;
  FindResult: Integer;
  s: string;
begin
  FindResult := FindFirst('C:\lol\*.exe', faAnyFile, SR);
  if FindResult = 0 then
  begin
    s := SR.Name;
    WinExec(PChar('C:\lol\'+s), SW_SHOW);
  end;
end;

Так как если не указывать полный путь до файла то он не выполнится (если же он не в windows/system32)

А SR.Name возвращает токо имя файла