Как из программы на Delphi добавить ссылку на файл в меню Пуск->Документы? |
|
Написал Ярослав Гасов
|
20.01.2003 |
uses ShellAPI, ShlOBJ; procedure AddToStartDocumentsMenu( sFilePath : string ); begin SHAddToRecentDocs( SHARD_PATH, PChar( sFilePath ) ); end;
// Например AddToStartDocumentsMenu( 'c:\windows\MyWork.txt' ); |