Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2011, 12:02   #1
chev-91
 
Регистрация: 02.05.2011
Сообщений: 4
По умолчанию Открывание .txt через WIN32

Ребят подскажите мне нужно встроить в кнопку команду:возможность копирования из edit текст, и нажатием на другую автомотически сохранить в каком-нить txt...
к кнопке 1003 -возможность копирования из edit текст
к кнопке 1004-автомотически сохранить в каком-нить txt...
горит сдавать а сил уже нема(((


Код:
.386
      .model flat, stdcall
      option casemap :none   ; case sensitive

      include \masm32\include\windows.inc
      include \masm32\include\user32.inc
      include \masm32\include\kernel32.inc
      include \masm32\include\gdi32.inc     
      includelib \masm32\lib\user32.lib
      includelib \masm32\lib\kernel32.lib
      includelib \masm32\lib\gdi32.lib

        WndProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
        EnumKids PROTO :DWORD,:DWORD
		EnumKids1 PROTO :DWORD,:DWORD
		EnumKids2 PROTO :DWORD,:DWORD
        buflen equ 102400
        
    .data
		fDone dd 0
        hInstance   dd 0
        dlgname     db "SNIFF",0
        szSniff     db "Hellow,Игорь Владимирович!",0
		
        buffer		db 512 DUP(?)
        membuf2 dd ?
        ClipBoard dd ?
        textlen dd ?
        currlength dd ?
		
        
    .code

start:

     invoke GetModuleHandle, NULL
        mov hInstance, eax
     invoke DialogBoxParam,hInstance,ADDR dlgname,0,ADDR WndProc,0
     invoke ExitProcess,eax

WndProc proc hWin   :DWORD,
             uMsg   :DWORD,
             wParam :DWORD,
             lParam :DWORD,
             ;hWnd   :DWORD

LOCAL tmpFont  :LOGFONT 


      .if uMsg == WM_INITDIALOG
      
            invoke LoadIcon,hInstance,101                   
            invoke SendMessage,hWin,WM_SETICON,TRUE,eax    
            invoke SetWindowPos,hWin,HWND_TOP or HWND_TOPMOST,NULL,NULL,NULL,NULL,SWP_NOSIZE or SWP_NOMOVE      
             invoke ShowWindow,hWin,SW_MINIMIZE             
             invoke ShowWindow,hWin,SW_NORMAL               
            invoke SetDlgItemText,hWin,1001,addr szSniff    
        xor eax, eax   ;очищение регистра eax
        ret
      .elseif uMsg == WM_COMMAND
        .if wParam == 1000                                          
                invoke GetDesktopWindow                             
                invoke EnumChildWindows,eax,addr EnumKids,hWin      
            xor eax,eax
		.endif
		.if wParam == 1002
				invoke ShowWindow,hWin,SW_NORMAL 
				invoke ShowWindow,hWin,SW_MINIMIZE 
			xor eax,eax
                ret
        .endif
		.if wParam==1003
        
 
                ; invoke OPEN "I",#1,"C:\Users\Вячеслав\Desktop\kva.asm.TXT"

        xor eax,eax
        ret
      .endif
	  .if wParam==1004
        
 
               invoke GetDesktopWindow                             
                invoke EnumChildWindows,eax,addr EnumKids2,hWin 

     
        xor eax,eax
        ret

		
		
    



      .endif
		
      .elseif uMsg == WM_CLOSE                          
            invoke ShowWindow,hWin,SW_MINIMIZE                      
            invoke EndDialog,hWin,0                                 
        xor eax,eax
        ret
      .endif
	  
	   
	 
	   
	  

    xor eax, eax 
    ret

WndProc endp

EnumKids proc eHandle:DWORD,z:DWORD

   invoke GetWindowLong,eHandle,GWL_STYLE                  ;проверка шрифта в окне EDIT    
    .if (eax & ES_PASSWORD)                                 ;   
        invoke SendMessage,eHandle, EM_SETPASSWORDCHAR, 0, 0    
            invoke GetStockObject,SYSTEM_FIXED_FONT             
            invoke SendMessage,eHandle,WM_SETFONT,eax, 0       
            invoke InvalidateRect,eHandle, NULL, FALSE          
    .endif      
mov eax,eHandle                                                 
ret                                                             



EnumKids endp


EnumKids1 proc eHandle:DWORD,z:DWORD
	
	invoke GetWindowLong,eHandle,GWL_STYLE 
	invoke GetWindowText,eHandle,addr  buffer,512				
	
     
	  
	   
    ;.endif      
mov eax,eHandle                                                 
ret                                                             

 EnumKids1 endp	

	EnumKids2 proc eHandle:DWORD,z:DWORD
	
	invoke GetWindowLong,eHandle,GWL_STYLE 
	invoke SetWindowText,eHandle,addr  buffer			
	
     
	  
	   
    ;.endif      
mov eax,eHandle                                                 
ret                                                             

 EnumKids2 endp	


		
		
end start
chev-91 вне форума Ответить с цитированием
Старый 27.05.2011, 12:07   #2
chev-91
 
Регистрация: 02.05.2011
Сообщений: 4
По умолчанию

1001-номер EDIT
chev-91 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Файловый ввод-вывод через API Win32 в ассемблере Alex_VK Помощь студентам 0 27.12.2010 11:24
win32 API.Visual Studio 2008.Создание проекта Win32 Aleksandr_Yanov Visual C++ 2 12.09.2010 13:09
Win32 API. VS2008. Как создать приложение win32 в vs2008? Aleksandr_Yanov Visual C++ 4 12.09.2010 00:59
HLLW.Shadow.based / Net-Worm.Win32.Kido / Win32.Conficker / W32.Downadup Pirotexnik Безопасность, Шифрование 13 27.03.2009 14:02
преобразовать doc в txt не через OLE furstenberg Компоненты Delphi 0 12.11.2008 14:44