Merlin’s Delphi Forge

You want to save data to a temporary file but you don’t what to file name to use? Well, this function does all the work for you.

function CreateUniqueFileName(sPath: string): string;
var
chTemp: Char;
begin
repeat
Randomize;
repeat
chTemp := Chr(Random(43) + 47);
[...]

Bookmark It

Hide Sites

There are two ways to determine the screen’s height and width.
1) Use the global Screen variable.

uses
Forms;
…
Screen.Height { Screen height in pixels }
Screen.Width { Screen width in pixels }
…
2) Use the Windows API GetSystemMetrics() function. This function can be useful in applications that don’t use the VCL like [...]

Bookmark It

Hide Sites