如何找到程序的位置

Question

我正在使用Delphi2006，我想使用Delphi代码找到特定程序的位置。

Answer 1

下面是一个 Delphi 程序，它可以查找所有名为 aFileName 的文件，并将结果放入 aDestFiles 字符串列表中。

 function findFilesCalled(aFileName : String; aDestFiles : TStringList) : boolean;
 var
   subDirs : TStringList;
   dir : Char;
   sRec : TSearchRec;
   toSearch : string;
 begin
   subdirs := TStringList.Create;
   for dir := 'A' to 'Z' do
     if DirectoryExists(dir + ':\') then
       subdirs.add(dir + ':');
   try
     while (subdirs.count > 0) do begin
       toSearch := subdirs[subdirs.count - 1];
       subdirs.Delete(subdirs.Count - 1);
       if FindFirst(toSearch + '\*.*', faDirectory, sRec) = 0 then begin
         repeat
           if (sRec.Attr and faDirectory) <> faDirectory then
             Continue;
           if (sRec.Name = '.') or (sRec.Name = '..') then
             Continue;
           subdirs.Add(toSearch + '\' + sRec.Name);
         until FindNext(sRec) <> 0;
       end;
       FindClose(sRec);
       if FindFirst(toSearch + '\' + aFileName, faAnyFile, sRec) = 0 then begin
         repeat
           aDestFiles.Add(toSearch + '\' + sRec.Name);
         until FindNext(sRec) <> 0;
       end;
       FindClose(sRec);
     end;
   finally
     FreeAndNil(subdirs);
   end;
   Result := aDestFiles.Count > 0;
 end;