Splash Screen Anzeigedauer

[Sir Rufo]

Um den Status der STRG-Taste beim Anwendungsstart zu prüfen in der dpr:

Delphi-Quellcode:

uses
  ...
  Winapi.Windows,
  ...;

var
  StrgPressed:Boolean;

begin
  StrgPressed := GetKeyState( VK_CONTROL ) < 0;

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.