Как уменьшить размер проги в оперативе

[Kostuch]

Поменял я все это дело .. дало 20 0кб еще и все (

[Approximator]

Поменял я все это дело .. дало 20 0кб еще и все (

Не уверен, что поможет, но всё же, при прочих равных это последний способ активного мемори-менеджмента:

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

Declare Function EmptyWorkingSet Lib "psapi.dll" (ByVal hProcess As Long) As Long

[Tok]

А как её заюзать?

[Approximator]

А как её заюзать?

Цитирую MSDN:

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

Process Status Helper
The process status helper functions make it easier for you to obtain information about processes and device drivers running on Microsoft® Windows NT®. These functions are available in PSAPI.DLL, which is distributed in the Microsoft® Platform Software Development Kit (SDK). The same information is generally available through the performance data in the registry, but it is more difficult to get to it. For more information on performance data, see The Registry Interface. For information on Performance Data Helper (PDH), see The PDH Interface.
PSAPI Functions

The following are the PSAPI functions.

EmptyWorkingSet   
EnumDeviceDrivers   
EnumProcesses   
EnumProcessModules   
GetDeviceDriverBaseName   
GetDeviceDriverFileName   
GetMappedFileName   
GetModuleBaseName   
GetModuleFileNameEx   
GetModuleInformation   
GetProcessMemoryInfo   
GetWsChanges   
InitializeProcessForWsWatch   
QueryWorkingSet 

EmptyWorkingSet
The EmptyWorkingSet function removes as many pages as possible from the working set of the specified process.

BOOL EmptyWorkingSet(
  HANDLE hProcess  // identifies the process
);

Parameters
hProcess
Handle to the process.
Return Value
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

Remarks
You can also use the SetProcessWorkingSetSize function to do what EmptyWorkingSet does if you pass it 0xFFFFFFFF for the minimum and maximum sizes.

See Also
Process Status Helper Overview, PSAPI Functions, EnumProcesses, SetProcessWorkingSetSize

SetProcessWorkingSetSize
The SetProcessWorkingSetSize function sets the minimum and maximum working set sizes for a specified process.

The working set of a process is the set of memory pages currently visible to the process in physical RAM memory. These pages are resident and available for an application to use without triggering a page fault. The size of the working set of a process is specified in bytes. The minimum and maximum working set sizes affect the virtual memory paging behavior of a process.

BOOL SetProcessWorkingSetSize(
  HANDLE hProcess,                // handle to the process of interest
  DWORD dwMinimumWorkingSetSize,  // specifies minimum working set size
  DWORD dwMaximumWorkingSetSize   // specifies maximum working set size
);

Parameters
hProcess
An open handle to the process whose working set sizes will be set.
Windows NT: The handle must have PROCESS_SET_QUOTA access rights.

dwMinimumWorkingSetSize
Specifies a minimum working set size for the process. The virtual memory manager attempts to keep at least this much memory resident in the process whenever the process is active.
If both dwMinimumWorkingSetSize and dwMaximumWorkingSetSize have the value 0xffffffff, the function temporarily trims the working set of the specified process to zero. This essentially swaps the process out of physical RAM memory.

dwMaximumWorkingSetSize
Specifies a maximum working set size for the process. The virtual memory manager attempts to keep no more than this much memory resident in the process whenever the process is active and memory is in short supply.
If both dwMinimumWorkingSetSize and dwMaximumWorkingSetSize have the value 0xffffffff, the function temporarily trims the working set of the specified process to zero. This essentially swaps the process out of physical RAM memory.

Return Values
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. Call GetLastError to obtain extended error information.

Remarks
The working set of the specified process can be emptied by specifying the value 0xffffffff for both the minimum and maximum working set sizes.

If the values of either dwMinimumWorkingSetSize or dwMaximumWorkingSetSize are greater than the process' current working set sizes, the specified process must have the SE_INC_BASE_PRIORITY_NAME privilege. Users in the Administrators and Power Users groups generally have this privilege. For more information about security privileges, see Privileges.

The operating system allocates working set sizes on a first-come, first-served basis. For example, if an application successfully sets 40 megabytes as its minimum working set size on a 64-megabyte system, and a second application requests a 40-megabyte working set size, the operating system denies the second application's request.

Using the SetProcessWorkingSetSize function to set an application's minimum and maximum working set sizes does not guarantee that the requested memory will be reserved, or that it will remain resident at all times. When the application is idle, or a low-memory situation causes a demand for memory, the operating system can reduce the application's working set. An application can use the VirtualLock function to lock ranges of the application's virtual address space in memory; however, that can potentially degrade the performance of the system.

When you increase the working set size of an application, you are taking away physical memory from the rest of the system. This can degrade the performance of other applications and the system as a whole. It can also lead to failures of operations that require physical memory to be present; for example, creating processes, threads, and kernel pool. Thus, you must use the SetProcessWorkingSetSize function carefully. You must always consider the performance of the whole system when you are designing an application.

QuickInfo
  Windows NT: Requires version 3.5 or later.
  Windows: Unsupported.
  Windows CE: Unsupported.
  Header: Declared in winbase.h.
  Import Library: Use kernel32.lib.

See Also
Processes and Threads Overview, Process and Thread Functions, GetProcessWorkingSetSize, VirtualLock

GetProcessWorkingSetSize
The GetProcessWorkingSetSize function obtains the minimum and maximum working set sizes of a specified process.

The "working set" of a process is the set of memory pages currently visible to the process in physical RAM memory. These pages are resident and available for an application to use without triggering a page fault. The size of a process' working set is specified in bytes. The minimum and maximum working set sizes affect the virtual memory paging behavior of a process.

BOOL GetProcessWorkingSetSize(
  HANDLE hProcess,  // open handle to the process of interest
  LPDWORD lpMinimumWorkingSetSize,
                    // points to variable to receive minimum working
                    // set size
  LPDWORD lpMaximumWorkingSetSize
                    // points to variable to receive maximum working
                    // set size
);

Parameters
hProcess
An open handle to the process whose working set sizes will be obtained. The handle must have PROCESS_QUERY_INFORMATION access rights.
lpMinimumWorkingSetSize
Pointer to a variable that receives the minimum working set size of the specified process. The virtual memory manager attempts to keep at least this much memory resident in the process whenever the process is active.
lpMaximumWorkingSetSize
Pointer to a variable that receives the maximum working set size of the specified process. The virtual memory manager attempts to keep no more than this much memory resident in the process whenever the process is active when memory is in short supply.
Return Values
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

QuickInfo
  Windows NT: Requires version 3.5 or later.
  Windows: Unsupported.
  Windows CE: Unsupported.
  Header: Declared in winbase.h.
  Import Library: Use kernel32.lib.

See Also
Processes and Threads Overview, Process and Thread Functions, SetProcessWorkingSetSize

Другого описания (даже на AllAPI ничего нет) не встречал.

[Approximator]

Кстати нашёл кое-что на AllAPI. Конечно, ничего особенного, но с помощью данного примера можно понять, как мониторить потенциальные и актуальные мемори-потребности той или иной проги.

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

'Remark: If you're using VB4 or VB5, you should first uncomment
' the Replace function (on the end of the code)

'In a form
Private Sub Form_Load()
    'Code submitted by Roger Taylor
    'enumerate all the different explorer.exe processes
    GetProcesses "explorer.exe"
End Sub

'In a module

Public Declare Function GetProcessMemoryInfo Lib "PSAPI.DLL" (ByVal hProcess As Long, ppsmemCounters As PROCESS_MEMORY_COUNTERS, ByVal cb As Long) As Long
Public Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Public Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Public Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Public Declare Function EnumProcesses Lib "PSAPI.DLL" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Public Declare Function GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Public Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)



Public Const PROCESS_QUERY_INFORMATION = 1024
Public Const PROCESS_VM_READ = 16
Public Const MAX_PATH = 260
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const SYNCHRONIZE = &H100000
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Public Const TH32CS_SNAPPROCESS = &H2&
Public Const hNull = 0
Public Const WIN95_System_Found = 1
Public Const WINNT_System_Found = 2
Public Const Default_Log_Size = 10000000
Public Const Default_Log_Days = 0
Public Const SPECIFIC_RIGHTS_ALL = &HFFFF
Public Const STANDARD_RIGHTS_ALL = &H1F0000


Type MEMORYSTATUS
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type


Type PROCESS_MEMORY_COUNTERS
    cb As Long
    PageFaultCount As Long
    PeakWorkingSetSize As Long
    WorkingSetSize As Long
    QuotaPeakPagedPoolUsage As Long
    QuotaPagedPoolUsage As Long
    QuotaPeakNonPagedPoolUsage As Long
    QuotaNonPagedPoolUsage As Long
    PagefileUsage As Long
    PeakPagefileUsage As Long
End Type


Public Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long ' This process
    th32DefaultHeapID As Long
    th32ModuleID As Long ' Associated exe
    cntThreads As Long
    th32ParentProcessID As Long ' This process's parent process
    pcPriClassBase As Long ' Base priority of process threads
    dwFlags As Long
    szExeFile As String * 260 ' MAX_PATH
    End Type


Public Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long '1 = Windows 95.
    '2 = Windows NT
    szCSDVersion As String * 128
End Type


Public Function GetProcesses(ByVal EXEName As String)

    Dim booResult As Boolean
    Dim lngLength As Long
    Dim lngProcessID As Long
    Dim strProcessName As String
    Dim lngSnapHwnd As Long
    Dim udtProcEntry As PROCESSENTRY32
    Dim lngCBSize As Long 'Specifies the size, In bytes, of the lpidProcess array
    Dim lngCBSizeReturned As Long 'Receives the number of bytes returned
    Dim lngNumElements As Long
    Dim lngProcessIDs() As Long
    Dim lngCBSize2 As Long
    Dim lngModules(1 To 200) As Long
    Dim lngReturn As Long
    Dim strModuleName As String
    Dim lngSize As Long
    Dim lngHwndProcess As Long
    Dim lngLoop As Long
    Dim b As Long
    Dim c As Long
    Dim e As Long
    Dim d As Long
    Dim pmc As PROCESS_MEMORY_COUNTERS
    Dim lret As Long
    Dim strProcName2 As String
    Dim strProcName As String

    'Turn on Error handler
    On Error GoTo Error_handler

   booResult = False

    EXEName = UCase$(Trim$(EXEName))
    lngLength = Len(EXEName)

    'ProcessInfo.bolRunning = False

    Select Case getVersion()
        'I'm not bothered about windows 95/98 becasue this class probably wont be used on it anyway.
        Case WIN95_System_Found 'Windows 95/98

        Case WINNT_System_Found 'Windows NT

            lngCBSize = 8 ' Really needs To be 16, but Loop will increment prior to calling API
            lngCBSizeReturned = 96

            Do While lngCBSize <= lngCBSizeReturned
                DoEvents
                'Increment Size
                lngCBSize = lngCBSize * 2
                'Allocate Memory for Array
                ReDim lngProcessIDs(lngCBSize / 4) As Long
                'Get Process ID's
                lngReturn = EnumProcesses(lngProcessIDs(1), lngCBSize, lngCBSizeReturned)
            Loop

            'Count number of processes returned
            lngNumElements = lngCBSizeReturned / 4
            'Loop thru each process

            For lngLoop = 1 To lngNumElements
            DoEvents

            'Get a handle to the Process and Open
            lngHwndProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lngProcessIDs(lngLoop))

            If lngHwndProcess <> 0 Then
                'Get an array of the module handles for the specified process
                lngReturn = EnumProcessModules(lngHwndProcess, lngModules(1), 200, lngCBSize2)

                'If the Module Array is retrieved, Get the ModuleFileName
                If lngReturn <> 0 Then

                    'Buffer with spaces first to allocate memory for byte array
                    strModuleName = Space(MAX_PATH)

                    'Must be set prior to calling API
                    lngSize = 500

                    'Get Process Name
                    lngReturn = GetModuleFileNameExA(lngHwndProcess, lngModules(1), strModuleName, lngSize)

                    'Remove trailing spaces
                    strProcessName = Left(strModuleName, lngReturn)

                    'Check for Matching Upper case result
                    strProcessName = UCase$(Trim$(strProcessName))

                    strProcName2 = GetElement(Trim(Replace(strProcessName, Chr$(0), "")), "\", 0, 0, GetNumElements(Trim(Replace(strProcessName, Chr$(0), "")), "\") - 1)

                    If strProcName2 = EXEName Then

                        'Get the Site of the Memory Structure
                        pmc.cb = LenB(pmc)

                           lret = GetProcessMemoryInfo(lngHwndProcess, pmc, pmc.cb)

                            Debug.Print EXEName & "::" & CStr(pmc.WorkingSetSize / 1024)

                    End If
                End If
            End If
            'Close the handle to this process
            lngReturn = CloseHandle(lngHwndProcess)
            DoEvents
        Next

    End Select

IsProcessRunning_Exit:

'Exit early to avoid error handler
Exit Function
Error_handler:
    Err.Raise Err, Err.Source, "ProcessInfo", Error
    Resume Next
End Function


Private Function getVersion() As Long

    Dim osinfo As OSVERSIONINFO
    Dim retvalue As Integer

    osinfo.dwOSVersionInfoSize = 148
    osinfo.szCSDVersion = Space$(128)
    retvalue = GetVersionExA(osinfo)
    getVersion = osinfo.dwPlatformId

End Function


Private Function StrZToStr(s As String) As String
    StrZToStr = Left$(s, Len(s) - 1)
End Function



Public Function GetElement(ByVal strList As String, ByVal strDelimiter As String, ByVal lngNumColumns As Long, ByVal lngRow As Long, ByVal lngColumn As Long) As String

    Dim lngCounter As Long

    ' Append delimiter text to the end of the list as a terminator.
    strList = strList & strDelimiter

    ' Calculate the offset for the item required based on the number of columns the list
    ' 'strList' has i.e. 'lngNumColumns' and from which row the element is to be
    ' selected i.e. 'lngRow'.
    lngColumn = IIf(lngRow = 0, lngColumn, (lngRow * lngNumColumns) + lngColumn)

    ' Search for the 'lngColumn' item from the list 'strList'.
    For lngCounter = 0 To lngColumn - 1

        ' Remove each item from the list.
        strList = Mid$(strList, InStr(strList, strDelimiter) + Len(strDelimiter), Len(strList))

        ' If list becomes empty before 'lngColumn' is found then just
        ' return an empty string.
        If Len(strList) = 0 Then
            GetElement = ""
            Exit Function
        End If

    Next lngCounter

    ' Return the sought list element.
    GetElement = Left$(strList, InStr(strList, strDelimiter) - 1)

End Function


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Function GetNumElements (ByVal strList As String,
' ByVal strDelimiter As String)
' As Integer
'
' strList = The element list.
' strDelimiter = The delimiter by which the elements in
' 'strList' are seperated.
'
' The function returns an integer which is the count of the
' number of elements in 'strList'.
'
' Author: Roger Taylor
'
' Date:26/12/1998
'
' Additional Information:
'
' Revision History:
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function GetNumElements(ByVal strList As String, ByVal strDelimiter As String) As Integer

    Dim intElementCount As Integer

    ' If no elements in the list 'strList' then just return 0.
    If Len(strList) = 0 Then
        GetNumElements = 0
        Exit Function
    End If

    ' Append delimiter text to the end of the list as a terminator.
    strList = strList & strDelimiter

    ' Count the number of elements in 'strlist'
    While InStr(strList, strDelimiter) > 0
        intElementCount = intElementCount + 1
        strList = Mid$(strList, InStr(strList, strDelimiter) + 1, Len(strList))
    Wend

    ' Return the number of elements in 'strList'.
    GetNumElements = intElementCount

End Function


'If you're using VB4 or VB5, uncomment the following function:
'Function Replace(sInput As String, WhatToReplace As String, ReplaceWith As String) As String
    'Dim Ret As Long
    'Replace = sInput
    'Ret = -Len(ReplaceWith) + 1
    'Do
        'Ret = InStr(Ret + Len(ReplaceWith), Replace, WhatToReplace, vbTextCompare)
        'If Ret = 0 Then Exit Do
        'Replace = Left$(Replace, Ret - 1) + ReplaceWith + Right$(Replace, Len(Replace) - Ret - Len(WhatToReplace) + 1)
    'Loop
'End Function

[GM]

Все ж я думаю что в этом виноваты ActiveX контролы. Ну взял я пустую форму накидал туда все контролы в перемешку. Размер в памяти 7 Мб, снял все контролы 3 Мб. Например в твоем случае можно обойтись лиш с Common Controls.

[Kostuch]

незнаю незнаю.. я поподключал контролы - занимет пустой проект те же 1.9 мегабайта !

[GM]

незнаю незнаю.. я поподключал контролы - занимет пустой проект те же 1.9 мегабайта !

А ты на форму их выложил, а то ВБ автоматически отключает ActiveX которые не используются.

[Kostuch]

А ну если отключает тогда понятно... а то как тут так умный а как выключить половину контролов что я не юзаю так - тупой.... потому как из соммона я только програсс бар юзаю

[GM]

Вот совет, вместо:
Masked Edit TextBox с PasswordChar = *
SSTab TabStrip
CommonDialog юзай ShowOpen
XPButton Command c манифестом
MSFlexGrid ListView
TaskIcon сSysTray, недавно я скидывал.
Это уменшит количество осх с 8 до 1, что должно показатся на употребление памяти.

[Approximator]

А ну если отключает тогда понятно... а то как тут так умный а как выключить половину контролов что я не юзаю так - тупой.... потому как из соммона я только програсс бар юзаю

А можно такой вопрос? Нафига они вообще тебе нужны? То есть зачем тебе вообще нужна форма? Сделай pop-up меню и всё... юзай API и т.п. А то, мне так показалось, что ты никаких реальных действий по сабжу делать не хочешь... так, решил VB покритиковать... а ведь дофига чего можно сделать... из того, кстати, что было предложено.

[Kostuch]

Вот совет, вместо:
Masked Edit TextBox с PasswordChar = *
SSTab TabStrip
CommonDialog юзай ShowOpen
XPButton Command c манифестом
MSFlexGrid ListView
TaskIcon сSysTray, недавно я скидывал.
Это уменшит количество осх с 8 до 1, что должно показатся на употребление памяти.

в текст боксе нельзя формат даты вставлять и МАСКУ назначить.. вот в этом и отстой...
CommonDialog - я не зюа воббще... если заметить...
а что такое Command с манифестом.. можно узнать ???
ListView - попробую.. пока что не знаю что это такое .. посмотрю..
а чем извините Вас сSysTray лучше ?

[Kostuch]

А ну если отключает тогда понятно... а то как тут так умный а как выключить половину контролов что я не юзаю так - тупой.... потому как из соммона я только програсс бар юзаю

А можно такой вопрос? Нафига они вообще тебе нужны? То есть зачем тебе вообще нужна форма? Сделай pop-up меню и всё... юзай API и т.п. А то, мне так показалось, что ты никаких реальных действий по сабжу делать не хочешь... так, решил VB покритиковать... а ведь дофига чего можно сделать... из того, кстати, что было предложено.

ну знаете... если не нужна форма Вам то давайте в Винде тоже будем только с рор-up меню работать ни експлорера а одно большое меню ? нравится ??? интерфейс ала ВАШ )
если мне бы не нужен был интерфейс я бы на Си написал без проблем так как работаю на нем всю жизнь.. а на ВП попробоавл потому как легче..

[Ennor]

...
если мне бы не нужен был интерфейс я бы на Си написал без проблем так как работаю на нем всю жизнь.. а на ВП попробоавл потому как легче..

Легче не на VB, легче на том языке, который ты лучше всего знаешь. В твоем случае это как раз С++. Там и memory management посерьезнее реализован. Нет, не так - там он реализован

[Kostuch]

ну это я согласен... но все же .. если писали и на том и на том... то думаю понимаете что все что должна делать поя прога реализуется на вб .. намного быстрее..

[A.A.Z.]

Kostuch, "Command с манифестом" - это CommandButton в XP, на VB ее можно получить, сделав файл Project.exe.manifest и наполнив его нужным содержимым, а также еще раз инициализировав контролы. Если заинтересовало, поищи по слову manifest - помогает , но, еще раз говорю, пашет это только в XP.

[Approximator]

А ну если отключает тогда понятно... а то как тут так умный а как выключить половину контролов что я не юзаю так - тупой.... потому как из соммона я только програсс бар юзаю

А можно такой вопрос? Нафига они вообще тебе нужны? То есть зачем тебе вообще нужна форма? Сделай pop-up меню и всё... юзай API и т.п. А то, мне так показалось, что ты никаких реальных действий по сабжу делать не хочешь... так, решил VB покритиковать... а ведь дофига чего можно сделать... из того, кстати, что было предложено.

ну знаете... если не нужна форма Вам то давайте в Винде тоже будем только с рор-up меню работать ни експлорера а одно большое меню ? нравится ??? интерфейс ала ВАШ )
если мне бы не нужен был интерфейс я бы на Си написал без проблем так как работаю на нем всю жизнь.. а на ВП попробоавл потому как легче..

Я оказался прав. Нифига делать реального для уменьшения памяти ты не хочешь, а можно много чего и интерфейс можно сделать, при желании: грузи соответствующий код (именно код!) создания элементов интерфейса из какого-нить ресурса... затем выгружай всё, что не пользуешь... что-то, (прости) не особо мне верится в твои успехи на С++ - ленивый ты для него шибко... по функциям видел прогу написанную на asm'е... даже где-то валялся её исходник. К чему я это? Да к тому, что тот кому это действительно нужно - делает это, а ты скулишь и ни один совет к сведению не принял...
Вот скажи, ты, как "мастер С++", должен был знать способ проверить, что именно из твоей проги занимает место? Не знать это - простительно. Но после того, как тебе дали код не воспользоваться этим и продолжать хатить среду программирования, которую, заметь, ты сам выбрал... и это в то время, когда проблема только в прокладке между стулом и клавиатурой... Прости за резкость. Просто, никогда не мог понять людей, которые спрашивают просто так...

[baha76]

А может он ждет, когда товарищи за него сделают.

[baha76]

2Kostuch
Какими средствами пользуешься для определения объема занимаемой памяти твоей прогой?

[GM]

в текст боксе нельзя формат даты вставлять и МАСКУ назначить.. вот в этом и отстой...

Мне кажется что это можна сделать программно.

CommonDialog - я не зюа воббще... если заметить

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

Private Sub Command13_Click()
brow.InitDir = brow1.Text
brow.ShowOpen
brow1.Text = brow.FileName
End Sub


А это что???

а чем извините Вас сSysTray лучше ?

А тем что он не ActiveX, а UserControl

что такое Command с манифестом.. можно узнать ???

Ну А.А.Z. уже ответил подробнее смотри [url="www.vbaccelerator.com"]тут[/url]