Se si ha bisogno di salvare il cuntenuto di un URL oppure un vero e proprio file presente in rete avendo anche la possibilità di controllare come procede il download, bisogna usare l’action TDownLoadURL. Essa genera un evento OnDownloadProgress, che consente di tenere traccia dei byte scaricati.
Nota: bisogna includere la unit ExtActns nella uses.
Share on [...]
Funzione che calcola il giorno di Pasqua.
function GetEaster(Year: Integer): TDate;
var y, m, d: Word;
G, I, J, C, H, L: Integer;
E: TDate;
begin
G := Year mod 19;
[...]
La funzione controlla se il drive indicato come parametro è pronto per l’utilizzo
function IsDriveReady(DriveLetter : char) : bool; var OldErrorMode : Word; OldDirectory : string; begin OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX); GetDir(0, OldDirectory); {$I-} ChDir(DriveLetter + ':'); {$I+} if IOResult <> 0 then Result := False else Result := True; ChDir(OldDirectory); SetErrorMode(OldErrorMode); end; { IsDriveReady }//Esempio di utilizzo: if not IsDriveReady('A') then ShowMessage('Drive Not Ready') else ShowMessage('Drive is Ready');
Funzione che permette di rilevare la velocita della CPU
function GetCPUSpeed: Double; const DelayTime = 500; var TimerHi, TimerLo: DWORD; PriorityClass, Priority: Integer; begin PriorityClass := GetPriorityClass(GetCurrentProcess); Priority := GetThreadPriority(GetCurrentThread); SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL); Sleep(10); asm dw 310Fh // rdtsc mov TimerLo, eax mov TimerHi, edx end; { asm } Sleep(DelayTime); asm dw 310Fh // rdtsc sub eax, TimerLo sbb edx, TimerHi mov TimerLo, eax mov TimerHi, edx end; { asm } SetThreadPriority(GetCurrentThread, Priority); SetPriorityClass(GetCurrentProcess, PriorityClass); Result := TimerLo / (1000.0 * DelayTime); end; { GetCPUSpeed }
procedure ShowTaskBar(bShow: Boolean); begin if bShow = True then ShowWindow(FindWindow('Shell_TrayWnd',nil), SW_SHOWNA) else ShowWindow(FindWindow('Shell_TrayWnd',nil), SW_HIDE); end;
