testdllindex.obs

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

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.