C与DELPHI的一点小转换(20分)

3h · 1999-09-13

我对以下函数： DWORD GetFullPathName(     LPCTSTR lpFileName, // address of name of file to find path for     DWORD nBufferLength, // size, in characters, of path buffer     LPTSTR lpBuffer, // address of path buffer     LPTSTR *lpFilePart // address of filename in path   &nbsp

; 最后一个参数在DELPHI中的定义不明白，请大家给我解释则个。

RedCat · 1999-09-13

LPTSTR->Pointer

3h · 1999-09-13

定义一个变量： PP : Pointer 放在最后那里不行。看以下： Var    FN,BU : String;    J : Integer;    PP : Pointer; ...    J := 0;    J := GetFullName(PChar(FN), J, PChar(BU), PP);   // ** ... 还是有类型不兼容的错误。

Jimchael Tsee · 1999-09-13

LPTSTR is PChar;

3h · 1999-09-13

PCHAR类型的变量放进去也不行的。

RedCat · 1999-09-13

Perhaps the param is a pointer to PChar? But PChar itself is a pointer... Willy nilly...

kokusan · 1999-09-13

我编了一段程序，运行通过了，返回码也对，但不知结果是否是你期望的。 procedure TForm1.Button1Click(Sender: TObject); var   i: Integer;   s: PChar;   Buffer: Array[1..128] of Char; begin   i := GetFullPathName('delphi32.exe', sizeof(Buffer), @Buffer, s);   Label1.Caption := s;   Label2.Caption := IntToStr(i); end; 在Label1.Caption := s;处设置断点，可看到Buffer的值。

kokusan · 1999-09-13

另外，还可以: procedure TForm1.Button1Click(Sender: TObject); var   i: Integer;   s1, s2: PChar; begin   new(s1);  // 必须   new(s2);  // 可以不要   i := GetFullPathName('delphi32.exe', 128, s1, s2);   Label1.Caption := s1;   Label2.Caption := IntToStr(i); end;

bluebird · 1999-09-13

GetFullPathName在delphi中重写了的 查看单元shellapi

Jams · 1999-09-13

LPTSTR *lpFilePart  // address of filename in path lpFilePart应为AscIIZ串，用PChar来存储，用该指针来引用。

3h · 1999-09-14

原来是PCHAR！：） 多谢大家！

C与DELPHI的一点小转换(20分)

3h

Unregistered / Unconfirmed

RedCat

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

Jimchael Tsee

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

RedCat

Unregistered / Unconfirmed

kokusan

Unregistered / Unconfirmed

kokusan

Unregistered / Unconfirmed

bluebird

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

Similar threads