小工具整理

文件重命名神器renamer-7.5/Scripts/Import DLL functions.pas

@@ -0,0 +1,10 @@
+function GetTickCount: Longint;
+  external 'GetTickCount@kernel32.dll stdcall';
+
+procedure Sleep(Milliseconds: Cardinal);
+  external 'Sleep@kernel32.dll stdcall';
+
+begin
+  FileName := IntToStr(GetTickCount);
+  Sleep(10);
+end.