mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-23 06:31:49 +01:00
49 lines
728 B
ObjectPascal
49 lines
728 B
ObjectPascal
{$mode objfpc}
|
|
|
|
program tres4;
|
|
|
|
|
|
uses
|
|
{$ifdef MSWINDOWS}
|
|
windows,
|
|
{$endif}
|
|
classes,
|
|
sysutils;
|
|
|
|
{$R tres4.res}
|
|
|
|
function testResource(aName : string): longword;
|
|
var
|
|
ResourceStream: TResourceStream;
|
|
begin
|
|
resourceStream:=nil;
|
|
result:=0;
|
|
try
|
|
try
|
|
resourceStream := TResourceStream.Create(HInstance, aname, RT_RCDATA);
|
|
result:=resourcestream.size;
|
|
except
|
|
|
|
on EResNotFound do
|
|
begin
|
|
writeln(aname);
|
|
halt(1)
|
|
end;
|
|
else
|
|
end;
|
|
finally
|
|
freeandnil(ResourceStream);
|
|
end;
|
|
|
|
end;
|
|
|
|
begin
|
|
writeln('Resources test.');
|
|
if (testresource('mdtytul100_png')<>50223) then
|
|
halt(2);
|
|
if (testresource('mdtoptyt_png') <>136303) then
|
|
halt(3);
|
|
writeln('Done.');
|
|
end.
|
|
|