Ярлык программы

[XIO]

Ну, во первых, если имеется возможность что программу будут перемещать с директории
в директорию, то надо перестраховаться, и не задавать статические маршруты.
К примеру, я когда начинал писать одну программку с ADO, то вскоре выяснил,
есть такой баг у Delphi, если воспользоваться OpenDialog или SaveDialog, то
адрес от куда запущена программа теряется и в таком случае обращение к файлу типа:
Config\Defalt.cfg
не прокатит, нужно обращаться полным адресом:
C:\WorkTime\Config\Defalt.cfg
Поэтому я стал использоваться следующую функцию, которую откопал в одном из много-
численныех FAQ

 
Function PrgDir(): String;
var
  szFileName : array[0..49] of char;
  FilePut: String[255];
  szModuleName : array[0..19] of char;
  iSize : integer;
  J: integer; //Счетчик
begin
  StrPCopy(szModuleName, 'NameOfModule');
  iSize := GetModuleFileName(GetModuleHandle(szModuleName),szFileName,
  SizeOf(szFileName));
  if iSize > 0 then
    begin
      FilePut := StrPas(szFileName);
      J := Length(FilePut);
      While FilePut[J] <> '\' Do
        begin
          Delete(FilePut,J,1);
          Dec(J);
        end;
      PrgDir := FilePut;//ShowMessage('Имя модуля с полным путем: ' + FilePut);
    end
  else
    begin
      ShowMessage('System dir error!!!');
    end;
end;

При желании можно увеличить длинну szFileName, szModuleName.

Использовать примерно так:
AssignFile(F,PrgDir+'Config\Defalt. cfg ');
...