Опять про Resource..... :(

← →
firefox (2003-05-23 12:51) [0]

Объясните, что делаю не правильно.... в результате ничего не получаю....

function EnumResourceTypesCallback(hModule: HMODULE; lpType: PAnsiChar;
lParam: Longint): BOOL; stdcall; export;

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
hRes, hFRes, hLRes, hUpdateRes: THandle;
sTypes: TStrings;
begin
sTypes:=TStringList.Create;
hRes:=LoadLibrary("aa.exe");
EnumResourceTypes(hRes, @EnumResourceTypesCallback, Integer(Pointer(sTypes)));
lb.Items:=sTypes;
.....
end;

function EnumResourceTypesCallback(hModule: HMODULE; lpType: PAnsiChar;
lParam: Longint): BOOL; stdcall; export;
var
sTypes: TStrings;
begin
sTypes := TStrings(lParam);
sTypes.Add(lpType);
Result := True;
end;

← →
icWasya © (2003-05-23 14:39) [1]

может так
sTypes.Add(StrPas(lpType));

← →
firefox (2003-05-23 14:46) [2]

да втом-то и дело что бесполезно :(((((((

← →
code.x (2003-05-23 15:37) [3]

Потрассируй значения lpType. Может я ошибаюсь, но о-моему где-то в хелпах описывается, что если в младш. байтах lpType стоит 0, то нужно читать старшие байты (или наоборот?), т.е. тип ресурса равен или lpType как строка или Hi(Integer(lpType)) соответственно как целочисленное.

Опять про Resource..... :( Найти похожие ветки