Это как понять ? Вопрос по корректнее можешь задать? Что значит найти папку Program Files?    С:\Program Files

Ответить

по-моему оно живет здесь :

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Хотя посмотри в библиотеке кодов, там может быть...

Ответить

To User Unknown: Эта функция служит для определения каталога System (Например, C:\WINDOWS\SYSTEM), а меня интересует API-функция для нахождения каталога Program Files. (SerJEANt, теперь тебе понятно?)

Ответить

SHGetSpecialFolderLocation для всяких НТей и тукеев. В 98/95х может и не работать.

Вообще для них и вообще советую юзать реестр и путь: HKEY_USERS\.Default\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders.

Ответить

Ну да теперь мне понятно. Так бы и писал что тебе APi-функция нужна. Насчет API по нахождению папки Program Files не знаю есть ли вообще такая, на крайний случай можешь сделать  поиск на диске папки Prog.Fil. (написать кода придётся побольше чем с APi но всётаки...)

Ответить

есть в природе вкусная штука - Windows Script Documentation

Example

The following example demonstrates the use of the SpecialFolders property:

в Васике нужно убрать перед CreateObject и все шуршит.

language="VBScript">

set WshShell = WScript.CreateObject("WScript.Shell")

strDesktop = WshShell.SpecialFolders("Desktop")

set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")

oShellLink.TargetPath = WScript.ScriptFullName

oShellLink.WindowStyle = 1

oShellLink.Hotkey = "Ctrl+Alt+e"

oShellLink.IconLocation = "notepad.exe, 0"

oShellLink.Description = "Shortcut Script"

oShellLink.WorkingDirectory = strDesktop

oShellLink.Save

set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Microsoft Web Site.url")

oUrlLink.TargetPath = "http://www.microsoft.com"

oUrlLink.Save

language="JScript">

var WshShell = WScript.CreateObject("WScript.Shell");

strDesktop = WshShell.SpecialFolders("Desktop");

var oShellLink = WshShell.CreateShortcut(strDesktop + "\\Shortcut Script.lnk");

oShellLink.TargetPath = WScript.ScriptFullName;

oShellLink.WindowStyle = 1;

oShellLink.Hotkey = "Ctrl+Alt+e";

oShellLink.IconLocation = "notepad.exe, 0";

oShellLink.Description = "Shortcut Script";

oShellLink.WorkingDirectory = strDesktop;

oShellLink.Save();

var oUrlLink = WshShell.CreateShortcut(strDesktop + "\\Microsoft Web Site.url");

oUrlLink.TargetPath = "http://www.microsoft.com";

oUrlLink.Save();

See Also

Ответить

прямой такой апи функции нема. А зачем???

Program Files ВСЕГДА(!!!) находятся на том же диске, что и сама винда!

Стоит найти только диск, куда винда установлена, и всё!

Ответить

Точно не помню... В реестре где-то около HKCR (или HKLM) \Software\Microsoft\Windows\CurrentVersion\ProgramFilesPath (или нет???)

Поищи в реестре

Ответить