iniファイルからキーやセクションを削除          <TOP>

iniファイルからキーやセクションを削除します。

WritePrivateProfileString iniファイルからキーやセクションを削除

　

下図のようなiniファイル（C:\test\test.ini）があるとします。

[Color]というセクションを指定して削除ボタンをクリックします。[Color]セクションが削除されているのが確認できます。

 

[URL]というセクションを指定して削除ボタンをクリックします。[URL]セクションが削除されているのが確認できます。

 

※参照

■iniファイルから文字列を取得
■WIN.INIファイルへの書き込みと読み出し
　

'================================================================
'= iniファイルからキーやセクションを削除
'=    (WritePrivateProfileString.bas)
'================================================================
#include "Windows.bi"

' iniファイルからキーやセクションを削除
Declare Function Api_WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal Section$, ByVal NoKey&, ByVal NoSetting&, ByVal FileName$)

Var Shared Edit1 As Object
Var Shared Button1 As Object
Var Shared Text(2) As Object

Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14
For i = 0 To 2
    Text(i).Attach GetDlgItem("Text" & Trim$(Str$(i + 1)))
    Text(i).SetFontSize 14
Next

Var Shared SectionName As String
Var Shared IniFile As String

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    IniFile = "c:\test\test.ini"
    SectionName = "Color"

    Text(2).SetWindowText IniFile
    Edit1.SetWindowText SectionName
End Sub
    
'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long

    SectionName = Edit1.GetwindowText
    Ret = Api_WritePrivateProfileString(SectionName, 0, 0, IniFile)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End