Merlin's Delphi Forge

You can run DOS (and Windows) programs using the Windows API WinExec() function.

WinExec('C:\\NC.exe', SW_NORMAL); { DOS program }

WinExec('notepad.exe', SW_MAXIMIZED); { Windows program started in maximized form }

For Win32 program you should use the CreateProcess() function although there will be no problems when you use this one.

Animated cursors have become very popular in the days of Windows 3.x. Now they have become a part of Windows 95 and newer. Sometimes you might want to use your own animated cursors instead of the user’s. The idea is same as with “normal” cursors.

Here’s the code:

const
  btCursorID1 = 1;
begin
  (* sCursorFile - (string) The full path of the animated cursor you want
  ** to use.
  *)
  Screen.Cursors[btCursorID1] := LoadCursorFromFile(sCursorFile);
  { This will set the cursor for the form }
  Cursor := btCursorID1;
end;