---------------------------------------------------------------------------
| 930 | } |
| 931 | //--------------------------------------------------------------------------- |
| 932 | bool __fastcall IsShortcutExist(int where) |
| 933 | { |
| 934 | String ShortcuteName = Application->Title; |
| 935 | String ShortcutFileName; |
| 936 | |
| 937 | char szLinkPath[MN]; |
| 938 | HRESULT hr = SHGetFolderPath(NULL, where, NULL, 0, szLinkPath); |
| 939 | if( FAILED(hr) ) |
| 940 | return false; |
| 941 | |
| 942 | ShortcutFileName = String(szLinkPath) + "\\" + ShortcuteName + ".lnk"; |
| 943 | return FileExists(ShortcutFileName); |
| 944 | } |
| 945 | //--------------------------------------------------------------------------- |
| 946 | void __fastcall TMainForm::aViewFileExecute(TObject *Sender) |
| 947 | { |