www.pudn.com > fd.zip > PROFILE.ASM

	.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