Как заставить запускаться из определенной папки

Автор: Vit

Приведенный пример кода проверяет из какой папки запущена программа, если она запущена не из корневой - то переносит себя в корень и запускается оттуда

program Project1;
uses
  Forms, classes, windows, Sysutils, ShellApi,
  Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var
  f: textFile;
  FileName: string;
begin
  if paramstr(1) <> '/runasis' then
  begin
    CopyFile(PChar(Paramstr(0)), PChar('c:\' + extractFilename(paramstr(0))),
      True);
    shellexecute(0, 'Open', PChar(extractFilename(paramstr(0))), '/runasis',
      'c:\', sw_restore);
    FileName := changefileext(paramstr(0), '.bat');
    assignFile(f, FileName);
    rewrite(f);
    writeln(f, ':1');
    writeln(f, format('Erase "%s"', [paramstr(0)]));
    writeln(f, format('If exist "%s" Goto 1', [paramstr(0)]));
    writeln(f, format('Erase "%s"', [FileName]));
    closefile(f);
    ShellExecute(0, 'Open', PChar(FileName), nil, nil, sw_hide);
  end
  else
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 485 • TDictionary Custom Sort 6 514 • Fast Watermark Sources 6 303 • 3D Designer 9 249 • Sik Screen Capture 6 638 • Patch Maker 7 015 • Айболит (remote control) 7 021 • ListBox Drag & Drop 5 896 • Доска для игры Реверси 97 195 • Графические эффекты 7 226 • Рисование по маске 6 524 • Перетаскивание изображений 5 393 • Canvas Drawing 5 761 • Рисование Луны 5 473 • Поворот изображения 5 002 • Рисование стержней 3 551 • Paint on Shape 2 817 • Генератор кроссвордов 3 690 • Головоломка Paletto 2 974 • Теорема Монжа об окружностях 3 779 • Пазл Numbrix 2 492 • Заборы и коммивояжеры 3 174 • Игра HIP 2 140 • Игра Go (Го) 2 077 • Симулятор лифта 2 453 • Программа укладки плитки 2 118 • Генератор лабиринта 2 594 • Проверка числового ввода 2 271 • HEX View 2 600 • Физический маятник 2 212