WritePrivateProfileString - где обещанное удаление параметра

[Eugenio]

Доброго времени суток.
Требуется создать/отредактировать ini-файл. точнее, файл с такой же структурой. Обещано, что при передаче 0 в параметре lpString параметр будет из файла удален. А этого не происходит.

BOOL WritePrivateProfileString(
LPCTSTR lpAppName, // section name
LPCTSTR lpKeyName, // key name
LPCTSTR lpString, // string to add
LPCTSTR lpFileName // initialization file
);
Parameters
.....
lpString
[in] Pointer to a null-terminated string to be written to the file. If this parameter is NULL, the key pointed to by the lpKeyName parameter is deleted.

Вот объявление:

Код: Выделить всё

Public Declare Function WritePrivateProfileString _
  Lib "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpAppName As String, _
  ByVal lpKeyName As Any, lpString As Any, _
  ByVal lpFileName As String) As Long

Вот вызов:

Код: Выделить всё

If Len(StrParamData) = 0 Then
    lngResult = WritePrivateProfileString(SECTION_NAME, StrParamName,  ByVal 0&, ConfigFileName)

Что тут не так? Можно, конечно, юзать WritePrivateProfileSection - эта работает железно. Но тут не удобно её юзать! Что имели в виду MS?

[Amed]

Код: Выделить всё

If Len(StrParamData) = 0 Then
    lngResult = WritePrivateProfileString(SECTION_NAME, StrParamName,  ByVal 0, ConfigFileName)

[tyomitch]

Код: Выделить всё

If Len(StrParamData) = 0 Then
    lngResult = WritePrivateProfileString(SECTION_NAME, StrParamName,  ByVal 0, ConfigFileName)

И в чём разница с оригиналом?

А я бы написал

Код: Выделить всё

Public Declare Function WritePrivateProfileString _
  Lib "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpAppName As String, _
  ByVal lpKeyName As Any, ByVal lpString As String, _
  ByVal lpFileName As String) As Long

If Len(StrParamData) = 0 Then
    lngResult = WritePrivateProfileString(SECTION_NAME, StrParamName,  vbNullString, ConfigFileName)

[Amed]

Разница в том, что оригинал не работает.

В чем выгода твоего способа?
Ага, уже вижу LPCTSTR.

[Eugenio]

To tyomitch:
блин, а и действительно!
А прикол в том, что у меня тоже всё работало, но я смотрел результаты не в том файле Прошу прощения..
Но рекомендованный способ мне больше нравится, впредь лучше так писать и буду - так можно обойтись без условий на длину строки и проч.