<textarea name="code" class="delphi" rows="200" cols="1500"> Program IFSTest; function WritePrivateProfileString( lpAppName:pchar;lpKeyName:pchar;lpString:pchar;lpFileName:pchar): Longint; external 'WritePrivateProfileStringA@kernel32.dll stdcall'; function GetPrivateProfileString( lpAppName:pchar;lpKeyName:pchar;lpDefault:pchar;lpReturnedString:pchar; nSize: Longint;lpFileName:pchar ): Longint; external 'GetPrivateProfileStringA@kernel32.dll stdcall'; var i: Longint; s : string; Begin i := WritePrivateProfileString('section','key1','5678','.\abc.ini') // i = 0 error writeln(inttostr(i)); GetPrivateProfileString('section','key1','',s,256,'.\abc.ini'); writeln(s); End. </textarea>
幸運的是WritePrivateProfileString可以使用 但是GetPrivateProfileString 卻出現以下訊息:
[Runtime Error] : Exception: Access violation at address 77E7155D in module 'kernel32.dll'. Write of address 00000000 in 0 at 312
請知道的人教一下,謝謝!

------
努力會更接近成功

編輯記錄

1.你可不可以把你的CODE整理一下！這樣沒人看得懂！
2.看了幾篇你的問題，發現你在呼叫WINAPI時都重新宣告原型，這在FORM的單元裡面是不需要的，在FORM的單元裡面內定就uses Windows(裡面包含了各API的原型以及一些常數與結構宣告)了，除非你的單元在呼叫WINAPI時該單元又沒有uses windows。

版主大大,實在抱歉,請容我解釋,
因為在測試
remobjects Pascal Script™ 3.0
網址 www.remobjects.com/page.asp
發現沒有shellexetue, inifiles可以使用, 但可以利用winapi的方式達成目的
突然發現自己好像在寫vb, 才知道寫delphi是一件多幸福的事, 因為winapi它都包好了
1.) 於是要先用google先以關鍵字找 "vb ini"
2.)用win32.hlp看它的宣告方式
3.)測試
4.)不行再上 ktop 請教
5.)有sense,再上網找答案
6.)查 source windows.pas, inifiles.pas....
...............

vb的宣告
Declare Function GetprivateprofileString Lib"Ker-nel"(ByVallpAppName As String，ByVallpKeyName As String，ByVallpDefault As String，ByVal lpRetrm-String As String，ByVal cbReturnString As Integer，ByVal Filename As String)As Integer

win32.hlp的宣告
DWORD GetPrivateProfileString(
LPCTSTR lpAppName, // points to section name
LPCTSTR lpKeyName, // points to key name
LPCTSTR lpDefault, // points to default string
LPTSTR lpReturnedString, // points to destination buffer
DWORD nSize, // size of destination buffer
LPCTSTR lpFileName // points to initialization filename
);

有關這段可能是問題關鍵, 可惜看不懂:
Windows NT: Windows NT does not modify the lpDefault string. This means that if the default string contains trailing blanks, the lpReturnedString and lpDefault strings will not match when compared using the lstrcmp function.

------
努力會更接近成功

<textarea cols="800" rows="200" class="delphi" name="code"> Program IFSTest; function WritePrivateProfileString(lpAppName:pchar;lpKeyName:pchar;lpString:pchar;lpFileName:pchar): Longint; external 'WritePrivateProfileStringA@kernel32.dll stdcall'; function GetPrivateProfileString(lpAppName:pchar;lpKeyName:pchar;lpDefault:pchar;lpReturnedString:pchar; nSize: Longint;lpFileName:pchar ): Longint; external 'GetPrivateProfileStringA@kernel32.dll stdcall'; var i: Longint; s : string; Begin i := WritePrivateProfileString('section','key1','9999','.\abc.ini') // i = 0 -> error writeln(inttostr(i)); SetLength(s,256); GetPrivateProfileString('section','key1','',s,256,'.\abc.ini'); writeln(s); End. </textarea> 可以了
關鍵在 SetLength(s,256); 256相當於 MAX_PATH 能否請教它定義在那裏? 謝謝大家的指導!

------
努力會更接近成功

編輯記錄

在這一篇不是已經告訴你了嗎！