win32.hlp 內說明如下:
DWORD GetCurrentDirectory( DWORD nBufferLength, // size, in characters, of directory buffer LPTSTR lpBuffer // address of buffer for current directory );
Parameters nBufferLength Specifies the length, in characters, of the buffer for the current directory string. The buffer length must include room for a terminating null character. lpBuffer Points to the buffer for the current directory string. This null-terminated string specifies the absolute path to the current directory.

我改的程式卻不work, 請協助修正, 謝謝!

<textarea cols="60" rows="10" class="delphi" name="code">Program Test; function GetCurrentDirectory(C1: string;C2:PCHAR):string;external 'GetCurrentDirectoryA@KERNEL32.dll stdcall'; var CurrDir: array[0..99] of char; begin GetCurrentDirectory(SizeOf(CurrDir),CurrDir); WriteLn(CurDir); end; End. </textarea>

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

編輯記錄

看不出來你要作啥？！這個API要這樣用。
var
aPath:String;

SetLength(aPath,MAX_PATH);
Len := Windows.GetCurrentDirectory(MAX_PATH,PChar(aPath));
SetLength(aPath,Len);
ShowMessage(aPath);

謝謝指導,
錯誤訊息如下:
[Error] C:\Program Files\RemObjects Software\Pascal Script for Delphi\Samples\Import\GETDIR.rops(11:19): Unknown identifier 'MAX_PATH'
===================引 用 Stallion 文 章===================
看不出來你要作啥？！這個API要這樣用。
var
aPath:String;

SetLength(aPath,MAX_PATH);
Len := Windows.GetCurrentDirectory(MAX_PATH,PChar(aPath));
SetLength(aPath,Len);
ShowMessage(aPath);

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

Uses
Windows;
===================引 用 pceyes 文 章===================
謝謝指導,
錯誤訊息如下:
[Error] C:\Program Files\RemObjects Software\Pascal Script for Delphi\Samples\Import\GETDIR.rops(11:19): Unknown identifier 'MAX_PATH'
===================引 用 Stallion 文 章===================
看不出來你要作啥？！這個API要這樣用。
var
aPath:String;

SetLength(aPath,MAX_PATH);
Len := Windows.GetCurrentDirectory(MAX_PATH,PChar(aPath));
SetLength(aPath,Len);
ShowMessage(aPath);

改成這樣就可以了, 謝謝您的指教! <textarea name="code" class="delphi" rows="600" cols="800"> Program Test; function GetCurrentDirectory(C1: longint;C2:PCHAR):longint;external 'GetCurrentDirectoryA@KERNEL32.dll stdcall'; var aPath:String; len : longint; begin SetLength(aPath,256); Len := GetCurrentDirectory(256,PChar(aPath)); SetLength(aPath,Len); writeln(apath); End. </textarea>

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

編輯記錄