"Недавние документы"

[Akella]

Как узнать путь к папке "Недавние документы".
И как узнать какая прога была последняя перед выключением Компа

[Gloom]

Насчёт "Недавние документы" -
Через WinAPI:

Код: Выделить всё

Declare Function SHGetSpecialFolderLocation Lib "Shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Declare Function SHGetPathFromIDList Lib "Shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Или через WSH:

Код: Выделить всё

Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.SpecialFolders("Recent")

[BV]

Или через WSH:

Код: Выделить всё

Set WshShell = CreateObject("WScript.Shell")
MsgBox WshShell.SpecialFolders("Recent")

Это крайне не рекомендую, иначе у кого стоит файрвал, он начнён ругаться на злобный скрипт в твоей программе (уже проверенно )