По-моему это... если нет - извини.

'КОД ФОРМЫ

Private Sub Command1_Click()

Module1.ShowAbout 'вызвать окно "О программе"

'Module1.ShowColor 'вызвать окно выбора цвета

'Module1.ShowFindFiles 'вызвать окно "Поиск файлов и папок"

'Module1.ShowFont 'вызвать окно "Выбор шрифта"

'Module1.ShowFormat 'вызвать окно "Форматирование дискеты"

'Module1.ShowHelp 'скорее всего, вызов помощи в программе

'Module1.ShowIcon 'выбор иконки для вашего приложения

'Module1.ShowObjectProp 'вызов окна "Свойство: Система"

'Module1.ShowOpen 'вызов окна "Открытие файла"

'Module1.ShowPrinter 'вызов окна "Печать"

'Module1.ShowRestart 'вызов окна "Перезарузить сейчас: ДА | НЕТ"

'Module1.ShowRun 'вызов окна "Запустить программу" (Меню ПУСК | ВЫПОЛНИТЬ)

'Module1.ShowSave 'вызов окна "Сохранение файла"

'Module1.ShowShutDown 'вызов окна "Завершение работы Windows"

'Module1.ShowFolder 'на моем компьютере данная функция "Вызвала недопустимую опреацию"

End Sub

'КОД МОДУЛЯ

Private Type BROWSEINFO

hOwner As Long

pidlRoot As Long

pszDisplayName As String

lpszTitle As String

ulFlags As Long

lpfn As Long

lParam As Long

iImage As Long

End Type

Private Type OPENFILENAME

lStructSize As Long

hwndOwner As Long

hInstance As Long

lpstrFilter As String

lpstrCustomFilter As String

nMaxCustFilter As Long

nFilterIndex As Long

lpstrFile As String

nMaxFile As Long

lpstrFileTitle As String

nMaxFileTitle As Long

lpstrInitialDir As String

lpstrTitle As String

flags As Long

nFileOffset As Integer

nFileExtension As Integer

lpstrDefExt As String

lCustData As Long

lpfnHook As Long

lpTemplateName As String

End Type

Private Type CHOOSECOLOR

lStructSize As Long

hwndOwner As Long

hInstance As Long

RGBResult As Long

lpCustColors As String

flags As Long

lCustData As Long

lpfnHook As Long

lpTemplateName As String

End Type

Const LF_FACESIZE = 32

Private Type LOGFONT

lfHeight As Long

lfWidth As Long

lfEscapement As Long

lfOrientation As Long

lfWeight As Long

lfItalic As Byte

lfUnderline As Byte

lfStrikeOut As Byte

lfCharSet As Byte

lfOutPrecision As Byte

lfClipPrecision As Byte

lfQuality As Byte

lfPitchAndFamily As Byte

lfFaceName(LF_FACESIZE) As Byte

End Type

Private Type ChooseFont

lStructSize As Long

hwndOwner As Long

hdc As Long

lpLogFont As Long

iPointSize As Long

flags As Long

rgbColors As Long

lCustData As Long

lpfnHook As Long

lpTemplateName As String

hInstance As Long

lpszStyle As String

nFontType As Integer

MISSING_ALIGNMENT As Integer

nSizeMin As Long

nSizeMax As Long

End Type

Const CF_INITTOLOGFONTSTRUCT = &H40&

Const SCREEN_FONTTYPE = &H2000

Const BOLD_FONTTYPE = &H100

Const FW_BOLD = 700

Const LOGPIXELSY = 90

Private Type PrintDlg

lStructSize As Long

hwndOwner As Long

hDevMode As Long

hDevNames As Long

hdc As Long

flags As Long

nFromPage As Integer

nToPage As Integer

nMinPage As Integer

nMaxPage As Integer

nCopies As Integer

hInstance As Long

lCustData As Long

lpfnPrintHook As Long

lpfnSetupHook As Long

lpPrintTemplateName As String

lpSetupTemplateName As String

hPrintTemplate As Long

hSetupTemplate As Long

End Type

Const CCHDEVICENAME = 32

Const CCHFORMNAME = 32

Private Type DEVMODE

dmDeviceName As String * CCHDEVICENAME

dmSpecVersion As Integer

dmDriverVersion As Integer

dmSize As Integer

dmDriverExtra As Integer

dmFields As Long

dmOrientation As Integer

dmPaperSize As Integer

dmPaperLength As Integer

dmPaperWidth As Integer

dmScale As Integer

dmCopies As Integer

dmDefaultSource As Integer

dmPrintQuality As Integer

dmColor As Integer

dmDuplex As Integer

dmYResolution As Integer

dmTTOption As Integer

dmCollate As Integer

dmFormName As String * CCHFORMNAME

dmUnusedPadding As Integer

dmBitsPerPel As Integer

dmPelsWidth As Long

dmPelsHeight As Long

dmDisplayFlags As Long

dmDisplayFrequency As Long

End Type

Private Type DEVNAMES

wDriverOffset As Integer

wDeviceOffset As Integer

wOutputOffset As Integer

wDefault As Integer

extra As String * 100

End Type

Const DM_DUPLEX = &H1000&

Const DM_ORIENTATION = &H1&

Const GMEM_MOVEABLE = &H2

Const GMEM_ZEROINIT = &H40

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Declare Function ChooseColorAPI Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long

Private Declare Function ChooseFont Lib "comdlg32.dll" Alias "ChooseFontA" (pChoosefont As ChooseFont) As Long

Private Declare Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA" (pPrintdlg As PrintDlg) As Long

Private Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hOwner As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long

Private Declare Function SHShutDownDialog Lib "Shell32" Alias "#60" (ByVal YourGuess As Long) As Long

Private Declare Function SHRestartSystem Lib "Shell32" Alias "#59" (ByVal hOwner As Long, ByVal sPrompt As String, ByVal uFlags As Long) As Long

Private Declare Function SHRunDialog Lib "Shell32" Alias "#61" (ByVal hOwner As Long, ByVal hIcon As Long, ByVal sDir As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long

Private Declare Function SHFormatDrive Lib "Shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long

Private Declare Function SHBrowseForFolder Lib "Shell32" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Private Declare Function SHChangeIconDialog Lib "Shell32" Alias "#62" (ByVal hOwner As Long, ByVal szFilename As String, ByVal Reserved As Long, lpIconIndex As Long) As Long

Private Declare

Ответить

Пардон, не влезло полную версия у меня на мыле.

Ответить

ShellExecute 0, "Open", "rundll32.exe", "user32.dll, LockWorkStation", "", SW_HIDE

Ответить

Ответить

Ответить

Павел: Вообще то я хотел не экран приветствия а именно блокировку (там где надо и имя юезера и пасс ввести)!

Но это тоже сойдет!

Спасибо!

Ответить

Ответить