ByHellsinq Acemi
Mesaj Sayısı : 14 Rep Gücü : : 32387 Rep Puani : : 2000 Kayıt tarihi : 24/08/09 Yaş : 38
| Konu: Başlatın İsmini Değiştirme Salı Ağus. 25, 2009 10:25 am | |
| Gerekenler : 1 TextBox 1 CommandButton Kod : - Kod:
-
Private Const WM_SETTEXT = &HC Private Const WM_GETTEXT = &HD Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Sub SetStartCaption(str As String) Dim StartBar As Long Dim StartBarText As Long Dim sCaption As String StartBar = FindWindow("Shell_TrayWnd", vbNullString) StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString) sCaption = Left(str, 6) SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption Exit Sub End Sub Private Sub Command1_Click() SetStartCaption Text1.Text End Sub | |
|
korba
Mesaj Sayısı : 4 Rep Gücü : : 20018 Rep Puani : : 0 Kayıt tarihi : 24/08/09
| Konu: Geri: Başlatın İsmini Değiştirme Perş. Ağus. 27, 2009 12:06 pm | |
| bunları yaptıgımda program hata verio kapanıo ndn böle yapıor acaba? | |
|