test.rc 内容
flash swf 1.swf
--------------------------------------------
{$R test.res}
.....
procedure TForm1.FormCreate(Sender: TObject);
var
hResInfo : THandle;
Ptrexe : PChar;
hRes : THandle;
begin
hResInfo := FindResource(HInstance, 'flash', 'swf');
hRes := LoadResource(HInstance, hResInfo);
if hRes > 32 then ptrexe:=LockResource(hRes);
ShockwaveFlash2.Movie:= ptrexe;
ShockwaveFlash2.Play;
end;
错误信息
---------------------------------------
[Warning] Unit1.pas(99): Variable 'Ptrexe' might not have been initialized
谁能帮忙搞定??? 谢谢
