Merlin’s Delphi Forge

To found out the name of the Windows directory it’s best to use the Windows API GetWindowsDirectory() function.
Here’s the Delphi implementation:

uses Windows;
…
function GetWindowsDir: string;
const
(* The length of the directory buffer. Usually 64 or even 16 is enough
**
** Must be DWORD type.
*)
dwLength: DWORD = 255;
var
pcWinDir: PChar;
begin
GetMem(pcWinDir, dwLength);
GetWindowsDirectory(pcWinDir, [...]

The easiest way to stop execution of your program is to use the Windows API Sleep() function. The function stops the program for n milliseconds. The only problem is that this function does not properly support multitasking, so during this time your program will not process any Windows messages, so you may want to check [...]