Работа с dll

[rangel]

Есть дллка SFmpq.dll
есть исходник, но он не на делфи,
вот функция

#define MPQHANDLE HANDLE
#define DWORD long


[helpstring("SFileOpenArchive flags")]
	typedef enum {
		SFILE_OPEN_HARD_DISK_FILE =0x0000,
		SFILE_OPEN_CD_ROM_FILE =   0x0001,
		SFILE_OPEN_ALLOW_WRITE =   0x8000,
	} SFileOpenArchive_Flags;


[entry("SFileOpenArchive"),helpstring("")]
			BOOL      WINAPI SFileOpenArchive(LPCSTR lpFileName, DWORD dwPriority, DWORD dwFlags, MPQHANDLE *hMPQ);

преобразую для делфи эту строчку

SFileOpenArchive(LPCSTR lpFileName, DWORD dwPriority, DWORD dwFlags, MPQHANDLE *hMPQ);

implementation

 function SFileOpenArchive(filename:TFileName;dwPriority:DWORD;dwFlags:DWORD;hmpq:THANDLE):boolean;
 external 'SFmpq';

делаю процедуру для кнопки

SFileOpenArchive('123.w3x',0,0,Listbox1.Handle);

и конечно ничё не работает....
Скажите что неправильно сделал..

[Evgeniy26]

DWord - LongWord или Cardinal, LPTSTR - PChar,string или так и оставь.

[rangel]

function SFileOpenArchive(filename:TFileName;dwPriority:LongWord;dwFlags:LongWord;hmpq:THANDLE):boolean;
 external 'SFmpq';

SFileOpenArchive('123.w3x',0,0,Listbox1.Handle);

ошибка

может листбокс или ещё что нибудь нетак?

[Evgeniy26]

Посмотри, как она здесь объявлена - http://hi.baidu.com/rarnu/blog/item/...7970a16b3.html.
Где-то так:

 function SFileOpenArchive(filename:PChar;dwPriority:longint;dwFlags:longint; var LW: LongWord):boolean;
 external 'SFmpq';

[rangel]

интересную ты вещь скинул, буду разбираться... спс

[BOBAH13]

#define WINAPI      __stdcall

Значит

 function SFileOpenArchive(filename: PChar; dwPriority, dwFlags: DWord; var LW: LongWord): BOOL; stdcall;
 external 'SFmpq';