关于调用系统dll里面的函数问题，我比较笨，弄了两天了，未果，谢谢高手帮忙，在线等！

Question

调用的是shell32.dll，用的是index方式调用，index = x
我试过这个函数，在VB里面能成功调用，也工作正常
在vb里面的函数结构是 Set(ByVal pszFilename As String, ByVal pszColor As String, ByVal pszSize As String, ByVal dwReserved As Integer) As Integer
请问如何在delphi里面调用啊？谢谢大家了！
我按照vb里面的结构，在delphi里面是这样定义的：
function  Set(pszFilename: string;pszColor: string; pszSize:string;dwReserved: integer):integer;
  stdcall; external 'shell32.dll' index x ;调用后程序能运行，但没有任何结果，但在vb里面有结果分不多，还请大家见谅了 ！

Answer 1

x到底是几啊？shell32.dll那么多导出函数，又不是每个都同样的声明

Answer 2

DLL和EXE传递string的时候，要么改成PChar，要么都在第一位引用sharemem，DLL创建的时候前面的注释就说了啊

Answer 3

delphi声明index=65（win2003 sp2 win/system32/shell32.dll）的地方就一句 ret 4 。不知道vb调用的到底是哪个index

Answer 4

function   SetSystemVisualStyle(pszFilename: widestring;pszColor: widestring; pszSize:widestring;dwReserved: integer):Integer;  stdcall; external 'UxTheme.dll' index 65;