Screen Saver

[Michael DELIQUE]

Code : Tout sélectionner

Public Function ScreenSaver_API As String
   
%REM
'Variables API pour la fonction
Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (Byval lpApplicationName As String, Byval lpKeyName As Any, Byval lpDefault As String, Byval lpReturnedString As String, Byval nSize As Long, Byval lpFileName As String) As Long
%END REM
   
   'Déclaration Variable
   Dim ScreenSaver As String *128   
   Dim i As Integer   
   
   On Error Goto ErreurScreenSaver_API   
   
   i = GetPrivateProfileString  ("BOOT","scrnsave.exe","", ScreenSaver,127,"c:\windows\system.ini")
   If i = 0 Then
      ScreenSaver_API= ""
   Else
      ScreenSaver_API=  Left(ScreenSaver,i)
   End If
   
   ScreenSaver = ""
   i=0
   
   Exit Function
ErreurScreenSaver_API:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Exit Function
End Function