>>130
　なるほどね。　でもコッチも
　http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1021888173&res=10
　このコード読ませられたんだからお互い様だと思うんだが？

やっと ShortCutFileExists がやってるらしい事が判ってきた
　たぶんTFileListがファイル一覧を取るのだろうと思うから

function　ShortCutFileExists(FolderName,　ExeFileName:　String):　String;
var　F:　TSearchRec;
begin
　ExeFileName:=ExpandFileName(ExeFileName);
　//フォルダ名の最後が\で無ければ追加
　if　copy(FolderName,Length(FolderName),1)<>'\'　then　FolderName:=FolderName+'\';
　with　TShortcutFile.Create　do　try
　 if　FindFirst(FolderName+'*.lnk',faAnyFile,F)=0　then　repeat
　　　result:=　FolderName+F.Name;
　　　try
　　　　LoadShortcutFile(result);
　　　　Writeln(LinkFileName);
　　　if　AnsiSameText(　ExpandFileName(LinkFileName),ExeFileName)　then　Exit;
　　　except　end;
　 until　FindNext(F)<>0;
　finally　Free;　end;
　Result　:=　'';
end;

こんな感じの事をやってるんだと思う。