Форум: "WinAPI";
Текущий архив: 2003.07.28;
Скачать: [xml.tar.bz2];
ВнизОпять про 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)) соответственно как целочисленное.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.07.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c