Registry Dll by makets

[makets]

hangi foruma girsem asm bölümüne hep döküman paylaşımı yaparlar genelde kaynak kod paylaşımı yapan ya hiç yoktur, ya da 3-5 kişidir. Umarım forumda By-Koray dan başka asm ile ilgilenen arkadaşlar vardır. Asmcilere gelsin..

Masmda sizlere yazılımlarınızı windows başlangıcına atmak için kullanabileceğiniz bir plug-in kodladım. Hem de açık kaynak kod; gelişime açık.

;Assembly Registry DLL by makets
;http://www.bymef.org
;makets_softwares@hotmail.com


.386
.MODEL FLAT, STDCALL
OPTION CASEMAP: NONE

include masm32\include\windows.inc
include masm32\include\user32.inc
include masm32\include\advapi32.inc
include masm32\include\kernel32.inc

includelib masm32\libuser32.lib
includelib masm32\libadvapi32.lib
includelib masm32\libkernel32.lib


.code

; ################################################## #####
Dll_Olustur PROC Ornek: DWORD, Durum: DWORD, Yeni: DWORD

mov eax,1
ret

Dll_Olustur ENDP
; ################################################## #####
AdminRegKaydi proc Regedit_Yolu: DWORD, Anahtar_Adi: DWORD, Exe_Adi: DWORD

LOCAL RegKey: DWORD

invoke RegCreateKey, HKEY_LOCAL_MACHINE, Regedit_Yolu, ADDR RegKey
.if eax==ERROR_SUCCESS
invoke lstrlen, Exe_Adi
inc eax
invoke RegSetValueEx, [RegKey], Anahtar_Adi, 0, REG_SZ, Exe_Adi, eax
.if eax==ERROR_SUCCESS
invoke RegCloseKey, [RegKey]
.endif
.endif
ret
AdminRegKaydi endp
; ################################################## ######
NormalRegKaydi proc Regedit_Yolu: DWORD, Anahtar_Adi: DWORD, Exe_Adi: DWORD

LOCAL RegKey: DWORD

invoke RegCreateKey,HKEY_CURRENT_USER, Regedit_Yolu,ADDR RegKey
.if eax==ERROR_SUCCESS
invoke lstrlen, Exe_Adi
inc eax
invoke RegSetValueEx, [RegKey], Anahtar_Adi, 0, REG_SZ, Exe_Adi, eax
.if eax==ERROR_SUCCESS
invoke RegCloseKey, [RegKey]
.endif
.endif
ret
NormalRegKaydi endp
; ################################################## #######

End Dll_Olustur

Bu plug-in için delphide örnek projeyi aşağıdaki linkten indirebilirsiniz:
RapidShare: Easy Filehosting

İsterseniz vb,c gibi diğer dillerde de kullanabilirsiniz..

[arqadas]

ben asm ile ugrsiyorum yeniyim baya zor nasil cozcem bu isi bende bilmiyorum + delphi de caliyorum yani perisan durum
kod icinde tsk.

[makets]

ben masm32 builder + delphi 7 ile çalışıyorum, asm için googldan e-book ve videolara bakabilirsin arkadaşım.

[arqadas]

makets Nickli Üyeden Alıntı

ben masm32 builder + delphi 7 ile çalışıyorum, asm için googldan e-book ve videolara bakabilirsin arkadaşım.

tsk. arkaasim masm32 builder ne ise yariyor?
asm guzel bilgiler gorursen bana pm ile veya msn yoluyla ulasirsan memnun olurum
arqadas@hotmail.com

[TryAgaiN]

Bravo Abi Asmde Tek Geçerim Kralsın Yakub abi

[hodgkintr]

eyw ellerine sağlık