Category: Delphi Windows Development

Delphi Windows OS Development

Delphi TPageControl and TTabControl Tips 0

Delphi Working with the Files Tips

Delphi Working with the Files Tips   How do I know the version of the program?   Code : function FileVersion(AFileName: string): string; var   szName: array[0..255] of Char;   P: Pointer;   Value: Pointer;   Len: UINT;   GetTranslationString: string;   FFileName: PChar;   FValid:boolean;   FSize: DWORD;   FHandle: DWORD;   FBuffer: PChar; begin...

0

How long is running Windows? Delphi WinAPI Tips

How long is running Windows?  Delphi WinAPI Tips How long is running Windows?    Code  :  procedure TForm1.Button1Click(Sender: TObject);  var    nDays: Double;    Ticks: LongInt;    bTime: TDateTime;  begin    {milliseconds}   Ticks := GetTickCount;    {To obtain days is divided by the number of...