windows api, ფანჯრის დასახური ღილაკის...

ფანჯრის დასახური ღილაკის გაქრობას ვაპირებს და იქნებ იცოდეთ ვინმემ რომელი აპი ფუნქციაა ამის გასაკეთებლად.

ეგ რომელ ენაში? Delphi-ში თუ გინდა: form1.BorderIcons:=[];

ეგ კოდი ივარგებს უკვე დაწერილი პროგრამის ფორმის კრესტიკის გასაქრობად????

გილოცავთ ახალა წელს ყველას

Visual Basic-ში ასე ვაკეთებ:

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub

vbhelp

მაშინ არ ვიცი, მე მეგონა შენ წერდი პროგრამას.

ეზეკი


:::::::::::::::::::::::::::::::::::::::::::::::::::::::;

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&

Public Sub DisableX(Frm As Form)
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar Frm.hwnd
End Sub

Private Sub Command1_Click()
DisableX Me
End Sub

ამას სჯობდა სულ არაფერი დაგეწერა

HUB
რატომ, რაზე გეცინება? შენ თუ არ იცი პროგრამირება შენი ბრალია, ეს კოდი მუშაობს ხოშიანად

მე ვხოხახვდი

პ.ს. შენ ყურადღებას ნუ მომაქცევ. It' OK.