Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Source-Code
Autor: The-Chaos5
Datum: 24.12.05 10:20
'API-Funktionen deklarieren Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Sub SaveINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Value As Variant) Call WritePrivateProfileString(Key, Setting, Value, Filename) End Sub Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Default As Variant) As Variant Dim Temp As String * 1024 Call GetPrivateProfileString(Key, Setting, Default, Temp, Len(Temp), Filename) GetINISetting = Mid(Temp, 1, InStr(1, Temp, Chr(0)) - 1) End Function SaveINISetting "E:\VAr.ini", "Monitor", "Status", "UnLok" ich hoffe mal das is so richtig

Source-Code	482	The-Chaos5	24.12.05 10:20
Re: Source-Code	290	Marcus W	24.12.05 12:49
Re: Source-Code	312	The-Chaos5	24.12.05 14:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen