End If

oDoc.Selection.FindText FILEVERSION , dsMatchCase

if Len(oDoc.Selection) = 0 Then oDoc.Close dsSaveChangesNo Set oDoc = Nothing Exit Sub

End If

oDoc.Selection.EndOfLine

oDoc.Selection.FindText , , dsMatchBackward

oDoc.Selection.CharLeft

oDoc.Selection.WordLeft dsExtend

iVer = oDoc.Selection

iVer = iVer + 1

oDoc.Selection = iVer

oDoc.Selection.FindText FileVersion , dsMatchCase

if Len(oDoc.Selection) = 0 Then oDoc.Close dsSaveChangesNo Set oDoc = Nothing Exit Sub

End If

oDoc.Selection.EndOfLine

oDoc.Selection.FindText , , dsMatchBackward

oDoc.Selection.CharLeft

oDoc.Selection.WordLeft dsExtend

iVer = oDoc.Selection

iVer = iVer + 1

oDoc.Selection = iVer

oDoc.Close dsSaveChangesYes Set oDoc = Nothing

End Sub

Какой функцией можно переключить видеорежим?

Этим занимается ChangeDisplaySettings(...);

Вот пример, который yстанавливает разрешение 640x480 (24 bit):

=== Cut ===

DEVMODE md;

ZeroMemory(&md, sizeof(md)); md.dmSize = sizeof(md);

md.dmFields = DM BITSPERPELDM PELSWIDTHDM PELSHEIGHT; md.dmBitsPerPel = 24; md.dmPelsWidth = 640;

md.dmPelsHeight = 480;

ChangeDisplaySettings(&md, 0);

=== Cut ===

Как вызвать окно выбора папки?

Воспользуйтесь следующей функцией:

BOOL FGetDirectory(LPTSTR szDir) { BOOL fRet;

TCHAR szPath[MAX PATH];

LPITEMIDLIST pidl; LPITEMIDLIST pidlRoot; LPMALLOC lpMalloc; BROWSEINFO bi = {

NULL, NULL, szPath,

Выберите папку , BIF RETURNONLYFSDIRS,

NULL, 0L, 0 };

if (0 != SHGetSpecialFolderLocation(HWND DESKTOP, CSIDL DRIVES, &pidlRoot))

return FALSE; if (NULL == pidlRoot)

return FALSE; bi.pidlRoot = pidlRoot; pidl = SHBrowseForFolder(&bi);

if (NULL != pidl)

fRet = SHGetPathFromIDList(pidl, szDir); else

fRet = FALSE; Get the shells allocator to free

PIDLs

if (!SHGetMalloc(&lpMalloc) && (NULL != lpMalloc))

if (NULL != pidlRoot)

lpMalloc->Free(pidlRoot);

if (NULL != pidl)

lpMalloc->Free(pidl);

lpMalloc->Release();

return fRet;

LPTSTR PszAlloc(int cch) {

return (LPTSTR) LocalAlloc(LMEM FIXED, sizeof(TCHAR) *

(cch+1)); }

bool PszDeAlloc(HLOCAL mem ptr)

return (LocalFree(mem ptr)==NULL) ? true : false;

Затем, при необходимости предложить пользователю выбрать папку используйте примерно такой код:

LPTSTR fname;

fname=PszAlloc(250);

FGetDirectory(fname);

PszDeAlloc((HLOCAL)fname);