{利用windows api}
procedure tform1.button1click(sender: tobject);
var
arystr: array [0..255] of char;
begin
windows.loadstring(hinstance, ids_rc, arystr, sizeof(arystr));
showmessage(arystr);
end;
procedure tform1.button2click(sender: tobject);
var
arystr: array [0..255] of char;
begin
windows.loadstring(hinstance, ids_hello, arystr, sizeof(arystr));
showmessage(arystr);
end;
{利用delphi原生函数}
procedure tform1.button3click(sender: tobject);
begin
showmessage(loadstr(ids_hello));
end;
procedure tform1.button4click(sender: tobject);
begin
showmessage(loadstr(ids_rc));
end;
end.
