splashscreen

[dec]

Hola,

El procedimiento "Sleep" aparece declado tanto en las unidades "Windows" como "SysUtils". En ambos casos parece que hace uso de una función de la librería "kernel32" del API de Win32.

Este es el procedimiento tal como aparece implementado en la unidad "SysUtils":

Código Delphi [-]
{$IFDEF MSWINDOWS}
procedure Sleep; external kernel32 name 'Sleep'; stdcall;
{$ENDIF}
{$IFDEF LINUX}
procedure Sleep(milliseconds: Cardinal);
begin
  usleep(milliseconds * 1000);  // usleep is in microseconds
end;
{$ENDIF}