profile.asm

来自「用汇编写的win32程序一些例子。」· 汇编 代码 · 共 40 行

	.386
	.model flat,STDCALL

include win32.asi           ; some 32-bit constants and structures
include win32.ase


extrn 	IntToString : PROC

	.data
szfilname db	'fdz.ini',0
szPClass db	'Fractal Designer',0
strbuf	db	256 DUP (0)

	.code

public StringToProfile, StringFromProfile
StringToProfile PROC
	call	WritePrivateProfileString,offset szPClass, esi,edi,offset szfilname
	ret
StringToProfile ENDP
StringFromProfile PROC
	call	GetPrivateProfileString,offset szPClass, esi,edi,offset strbuf,256,offset szfilname
	lea	esi,[strbuf]
	ret
StringFromProfile ENDP

public IntToProfile, IntFromProfile
IntToProfile PROC
    	call	IntToString
	call  	StringToProfile
	ret
IntToProfile ENDP

IntFromProfile PROC
	call	GetPrivateProfileInt,offset szPClass,esi,eax,offset szfilname
	ret
IntFromProfile ENDP

	end