testdllindex.out

来自「格式化源码的最新板」· OUT 代码 · 共 22 行

unit testdllindex;

interface

uses Windows;

function spaces(n: cardinal): string;
function restartdialog(wnd: hwnd; reason: PChar; flags: integer): integer;
  stdcall; external 'shell32.dll'
  index 59;

implementation

uses SysUtils;

function spaces(n: cardinal): string;
begin
  Result := IntToStr(n);
end;

end.