Deutsch
Quelltexte/ Codesnippets

Auslesen Datei Informationen

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei-Informationen auslesen
_GetFileInfo C:ProgrammeMicrosoft OfficeOfficewinword.exe,0
Übergabe
Par 1 = Entweder ein Dateiname oder ein Ordnername oder ein Datenträger (C:)
Bei Ordner und Datenträger den Backslash nicht vergessen
Par 2 = Flag für Icongroesse ( 0 = Gross, 1 = klein)
Rückgabestring ist durch Semikolon getrennt aufgebaut
und kann durch Substr$(...) zerlegt werden, und zwar in 16
Teile
1 = Iconhandle
2 = FileName
3 = Filetyp
4 = Attrib (Readonly)
5 = Attrib (Hidden)
6 = Attrib (System)
7 = Attrib (Directory)
8 = Attrib (Archiv)
9 = Filegroesse(Bytes)
10 = Longname
11 = Shortname
12 = Erstellungsdatum
13 = Erstellungszeit
14 = Letzter Zugriff (Datum)
15 = Geändert am (Datum)
16 = Geändert am (Zeit)
----- FILEINFO.INC -----------------------------------------------------------------------------
DEF SHGetFileInfo(5) !SHELL32,SHGetFileInfoA
DEF GetFileAttributes(1) !KERNEL32,GetFileAttributesA
DEF FindFirst(2) !Kernel32,FindFirstFileA
DEF FindClose(1) !Kernel32,FindClose
DEF FileTimeToLocalFileTime(2) !Kernel32,FileTimeToLocalFileTime
DEF FileTimeToSystemTime(2) !Kernel32,FileTimeToSystemTime
Declare FileInfo#,FileInfo1#,FileTime1#,Filetime2#
Declare File#

Proc _GetFileInfo

    Parameters File$,I&
    Declare FI&,File&,Back$,Ico&
    Dim FileInfo1#,328
    Dim FileTime1#,8
    Dim FileTime2#,16
    Dim FileInfo#,352
    Dim File#,260
    String File#,0 = File$

    If equ(I&,0)

        SHGetFileInfo(File#,1,FileInfo#,352,$1700)

    elseif equ(I&,1)

        SHGetFileInfo(File#,1,FileInfo#,352,$1701)

    endif

    Iconhandle, FileName und Dateityp
    Let Back$ = Add$(STR$(Long(FileInfo#,0)),Add$(;,String$(FileInfo#,12)))
    Let Back$ = Add$(Add$(Back$,;),String$(FileInfo#,272))
    FI& = GetFileAttributes(File#)
    Attribute

    If @AND(Fi&,1)

        Let Back$ = Add$(Add$(Back$,;),Readonly)
        Else ifnot @AND(Fi&,1)
        Let Back$ = Add$(Back$,;)

    Endif

    If @AND(Fi&,2)

        Let Back$ = Add$(Add$(Back$,;),Hidden)
        Else ifnot @AND(Fi&,2)
        Let Back$ = Add$(Back$,;)

    Endif

    If @AND(Fi&,4)

        Let Back$ = Add$(Add$(Back$,;),System)
        Else ifnot @AND(Fi&,4)
        Let Back$ = Add$(Back$,;)

    Endif

    If @AND(Fi&,16)

        Let Back$ = Add$(Add$(Back$,;),Directory)
        Else ifnot @AND(Fi&,16)
        Let Back$ = Add$(Back$,;)

    Endif

    If @AND(Fi&,32)

        Let Back$ = Add$(Add$(Back$,;),Archiv)
        Else ifnot @AND(Fi&,32)
        Let Back$ = Add$(Back$,;)

    Endif

    FileTimes und FileGroesse
    Let File&=FindFirst(File#,FileInfo1#)

    If File& > 0

        Let Back$ = Add$(Back$,;)
        Let Back$ = Add$(Back$,STR$(long(FileInfo1#,32)))
        Let Back$ = Add$(Back$,;)
        Let Back$ = Add$(Back$,STRING$(FileInfo1#,44))
        Let Back$ = Add$(Back$,;)
        Let Back$ = Add$(Back$,STRING$(FileInfo1#,304))
        Erstellungdatum
        FileTimeToLocalFileTime(add(FileInfo1#,4),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,6)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,2)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(0000,word(Filetime2#,0)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

        Erstellungzeit

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,8)))
            Let Back$ = Add$(Back$,:)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,10)))
            Let Back$ = Add$(Back$,:)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,12)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

        Letzte Zugriff
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,6)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,2)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,0)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

        FileTimeToLocalFileTime(add(FileInfo1#,20),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)
        Geändert am Datum
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,6)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,2)))
            Let Back$ = Add$(Back$,.)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,0)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

        Geändert Zeit

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,8)))
            Let Back$ = Add$(Back$,:)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,10)))
            Let Back$ = Add$(Back$,:)
            Let Back$ = Add$(Back$,format$(00,word(Filetime2#,12)))

        else

            Let Back$ = Add$(Back$,;)
            Let Back$ = Add$(Back$,Unbekannt)

        Endif

    Endif

    Dispose File#
    Dispose FileInfo#
    Dispose FileInfo1#
    Dispose FileTime1#
    Dispose FileTime2#
    FindClose(File&)
    Return Back$

endProc

----------------------------------------------------------------------------------
Beispiel:
DEF GetButtonFaceColor(0) External(User32,GetSysColor,15)
DEF @SetClassLong(3) ! User32,SetClassLongA
###############################
Definitionen von Thomas Hoelzer
Def GetStockObject(1) !GDI32,GetStockObject
Def SetDefaultGUIFont(1) SendMessage(&(1),$30,Val(GetStockObject($11)),1)
###############################
 $I FileInfo.inc
SetTrueColor 1
Windowstyle 24
Window Add(%maxx,0),0 - 0,0
cls GetButtonFaceColor()
_GetFileInfo C:\Autoexec.bat,0
_GetFileInfo C:\Programme\Microsoft Office\Office\logo.acs,0
_GetFileInfo C:\Programme\Microsoft Office\Office\winword.exe,0
_GetFileInfo C:\Programme\Microsoft Office\Office\,0
_GetFileInfo C:\,0
Declare IconStatic&,S1&,S2&
Declare A1&,A2&,A3&,A4&,A5&
Declare D1&,D2&,D3&,D4&,D5&,D6&,D7&,D8&
Let IconStatic& = @Control(Static,,$50000103,220,4,0,0,%hwnd,2001,%Hinstance,$0)
Sendmessage(Iconstatic&,$0170,val(SUBSTR$(@$(0),1,;))&,0)
Let S1& = @Control(Static,ADD$(Dateiname : ,SUBSTR$(@$(0),2,;)),$50000100,10,16,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(S1&)
Let S2& = @Control(Static,ADD$(Dateityp : ,SUBSTR$(@$(0),3,;)),$50000100,10,40,270,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(S2&)
Let A1& = @Control(Button,Readonly,$50000105,10,80,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A1&)
Let A2& = @Control(Button,Hidden,$50000105,10,100,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A2&)
Let A3& = @Control(Button,System,$50000105,10,120,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A3&)
Let A4& = @Control(Button,Directory,$50000105,10,140,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A4&)
Let A5& = @Control(Button,Archiv,$50000105,10,160,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A5&)
EnableWindow A1&,0
EnableWindow A2&,0
EnableWindow A3&,0
EnableWindow A4&,0
EnableWindow A5&,0
Case neq$(SUBSTR$(@$(0),4,;),):SetCheck A1&,1
Case neq$(SUBSTR$(@$(0),5,;),):SetCheck A2&,1
Case neq$(SUBSTR$(@$(0),6,;),):SetCheck A3&,1
Case neq$(SUBSTR$(@$(0),7,;),):SetCheck A4&,1
Case neq$(SUBSTR$(@$(0),8,;),):SetCheck A5&,1
Let D1& = @Control(Static,ADD$(ADD$(Grösse : ,SUBSTR$(@$(0),9,;)), Bytes),$50000100,10,200,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D1&)
Let D2& = @Control(Static,ADD$(Longname : ,SUBSTR$(@$(0),10,;)),$50000100,10,220,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D2&)
Let D3& = @Control(Static,ADD$(Shortname : ,SUBSTR$(@$(0),11,;)),$50000100,10,240,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D3&)
Let D4& = @Control(Static,ADD$(Erstellungsdatum : ,SUBSTR$(@$(0),12,;)),$50000100,10,260,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D4&)
Let D5& = @Control(Static,ADD$(Erstellungsdzeit : ,SUBSTR$(@$(0),13,;)),$50000100,10,280,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D5&)
Let D6& = @Control(Static,ADD$(Letzter Zugriff am : ,SUBSTR$(@$(0),14,;)),$50000100,10,300,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D6&)
Let D7& = @Control(Static,ADD$(geändert am : ,SUBSTR$(@$(0),15,;)),$50000100,10,320,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D7&)
Let D8& = @Control(Static,ADD$(um : ,SUBSTR$(@$(0),16,;)),$50000100,10,340,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D8&)
Windowtitle ADD$(Info - ,SUBSTR$(@$(0),2,;))
@SetClassLong(%hwnd,-14,val(SUBSTR$(@$(0),1,;)))
setwindowpos %hwnd = 50,50-280,400
Waitinput
end
 
15.07.2007  
 




p.specht
Restauriert und INC itegriert (- ohne Garantie):
'Datei-Informationen auslesen
'_GetFileInfo "C:Programme\Microsoft Office\Office\winword.exe",0
'Übergabe:
'Par 1 = Entweder ein Dateiname oder ein Ordnername oder ein Datenträger (C:)
'Bei Ordner und Datenträger den Backslash nicht vergessen
'Par 2 = Flag für Icongroesse ( 0 = Gross, 1 = klein)
'Rückgabestring ist durch Semikolon getrennt aufgebaut
'und kann durch Substr$(...) zerlegt werden, und zwar in 16 Teile:
'1 = Iconhandle
'2 = FileName
'3 = Filetyp
'4 = Attrib (Readonly)
'5 = Attrib (Hidden)
'6 = Attrib (System)
'7 = Attrib (Directory)
'8 = Attrib (Archiv)
'9 = Filegroesse(Bytes)
'10 = Longname
'11 = Shortname
'12 = Erstellungsdatum
'13 = Erstellungszeit
'14 = Letzter Zugriff (Datum)
'15 = Geändert am (Datum)
'16 = Geändert am (Zeit)
'----- FILEINFO.INC ---------------------------------------------------
'--- mit Ersatz für ProfALt.inc
:PROC ADD :PARAMETERS A!,B!:RETURN A!+B!:ENDPROC
:PROC MUL :PARAMETERS A!,B!:RETURN A!*B!:ENDPROC
:PROC SUB :PARAMETERS A!,B!:RETURN A!-B!:ENDPROC
:PROC EQU :PARAMETERS A!,B!:RETURN A!=B!:ENDPROC
:PROC NEQ :PARAMETERS A!,B!:RETURN A!<>B!:ENDPROC
:PROC LT :PARAMETERS A!,B!:RETURN A!<B!:ENDPROC
:PROC GT :PARAMETERS A!,B!:RETURN A!>B!:ENDPROC
:PROC DIV :PARAMETERS A!,B!:RETURN A!/B!:ENDPROC
:PROC POW :PARAMETERS A!,B!:RETURN A!^B!:ENDPROC
:PROC MOD :PARAMETERS A!,B!:RETURN A! MOD B!:ENDPROC
:PROC DIV& :PARAMETERS A!,B!:RETURN A!\B!:ENDPROC
:PROC ADD$ :PARAMETERS A$,B$:RETURN A$+B$:ENDPROC
:PROC EQU$ :PARAMETERS A$,B$:RETURN A$=B$:ENDPROC
:PROC NEQ$ :PARAMETERS A$,B$:RETURN A$<>B$:ENDPROC
:PROC LT$ :PARAMETERS A$,B$:RETURN A$<B$:ENDPROC
:PROC GT$ :PARAMETERS A$,B$:RETURN A$>B$:ENDPROC
:Proc AND :parameters a&,b&:return a& & b&:endproc
'---------------------------------------------------------------
DEF SHGetFileInfo(5) !"SHELL32","SHGetFileInfoA"
DEF GetFileAttributes(1) !"KERNEL32","GetFileAttributesA"
DEF FindFirst(2) !"Kernel32","FindFirstFileA"
DEF FindClose(1) !"Kernel32","FindClose"
DEF FileTimeToLocalFileTime(2) !"Kernel32","FileTimeToLocalFileTime"
DEF FileTimeToSystemTime(2) !"Kernel32","FileTimeToSystemTime"
Declare FileInfo#, FileInfo1#, FileTime1#, Filetime2#, File#

Proc _GetFileInfo

    Parameters File$,I&
    Declare FI&,File&,Back$,Ico&
    Dim FileInfo1#,328
    Dim FileTime1#,8
    Dim FileTime2#,16
    Dim FileInfo#,352
    Dim File#,260
    String File#,0 = File$

    If equ(I&,0)

        SHGetFileInfo(File#,1,FileInfo#,352,$1700)

    elseif equ(I&,1)

        SHGetFileInfo(File#,1,FileInfo#,352,$1701)

    endif

    '   Iconhandle, FileName und Dateityp
    Let Back$ = Add$(STR$(Long(FileInfo#,0)),Add$(";",String$(FileInfo#,12)))
    Let Back$ = Add$(Add$(Back$,";"),String$(FileInfo#,272))
    FI& = GetFileAttributes(File#)
    '   Attribute

    If @AND(Fi&,1)

        Let Back$ = Add$(Add$(Back$,";"),"Readonly")

    Else'=casenot @AND(Fi&,1)

        Let Back$ = Add$(Back$,";")

    Endif

    If @AND(Fi&,2)

        Let Back$ = Add$(Add$(Back$,";"),"Hidden")
        Else ifnot @AND(Fi&,2)
        Let Back$ = Add$(Back$,";")

    Endif

    If @AND(Fi&,4)

        Let Back$ = Add$(Add$(Back$,";"),"System")

    Else'=Casenot @AND(Fi&,4)

        Let Back$ = Add$(Back$,";")

    Endif

    If @AND(Fi&,16)

        Let Back$ = Add$(Add$(Back$,";"),"Directory")

    Else'casenot @AND(Fi&,16)

        Let Back$ = Add$(Back$,";")

    Endif

    If @AND(Fi&,32)

        Let Back$ = Add$(Add$(Back$,";"),"Archiv")

    Else'=casenot @AND(Fi&,32)

        Let Back$ = Add$(Back$,";")

    Endif

    '   FileTimes und FileGroesse
    Let File&=FindFirst(File#,FileInfo1#)

    If File& > 0

        Let Back$ = Add$(Back$,";")
        Let Back$ = Add$(Back$,STR$(long(FileInfo1#,32)))
        Let Back$ = Add$(Back$,";")
        Let Back$ = Add$(Back$,STRING$(FileInfo1#,44))
        Let Back$ = Add$(Back$,";")
        Let Back$ = Add$(Back$,STRING$(FileInfo1#,304))
        '       Erstellungdatum
        FileTimeToLocalFileTime(add(FileInfo1#,4),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,6)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,2)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,format$("0000",word(Filetime2#,0)))

        else

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,"Unbekannt")

        Endif

        '       Erstellungzeit

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,8)))
            Let Back$ = Add$(Back$,":")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,10)))
            Let Back$ = Add$(Back$,":")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,12)))

        else

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,"Unbekannt")

        Endif

        '       Letzter Zugriff
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,6)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,2)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,0)))

        else

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,"Unbekannt")

        Endif

        FileTimeToLocalFileTime(add(FileInfo1#,20),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)
        '       Geändert_am-Datum
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,6)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,2)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,0)))

        else

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,"Unbekannt")

        Endif

        '       Geändert Zeit

        If gt(word(Filetime2#,0),1601)

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,8)))
            Let Back$ = Add$(Back$,":")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,10)))
            Let Back$ = Add$(Back$,":")
            Let Back$ = Add$(Back$,format$("00",word(Filetime2#,12)))

        else

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,"Unbekannt")

        Endif

    Endif

    Dispose File#
    Dispose FileInfo#
    Dispose FileInfo1#
    Dispose FileTime1#
    Dispose FileTime2#
    FindClose(File&)
    Return Back$

endProc

'----------------------------------------------------------------------------------
'Beispiel:
DEF GetButtonFaceColor(0) External("User32","GetSysColor",15)
DEF @SetClassLong(3) !"User32","SetClassLongA"
'###############################
'Definitionen von Thomas Hoelzer
Def GetStockObject(1) !"GDI32","GetStockObject"
Def SetDefaultGUIFont(1) SendMessage(&(1),$30,Val(GetStockObject($11)),1)
'###############################
' $I FileInfo.inc ' Hier nicht eingebunden da bereits oben im Programm. Sonst splitten!
SetTrueColor 1
Windowstyle 24
Window Add(%maxx,0),0 - 0,0
cls GetButtonFaceColor()
'HIER EIGENE EXISTIERENDE TESTPFADE/FILES DEFINIEREN
'  und jeweils nur eine Zeile davon dekommentieren:
'_GetFileInfo "C:\Quarantine.lst",0
'_GetFileInfo "C:\Program Files\Microsoft Office\Office14\ONFILTER.DLL",0 '"logo.acs",0
_GetFileInfo "C:\Program Files (x86)\OpenOffice.org 3\program\soffice.exe",0'"C:\Programme\Microsoft Office\Office\winword.exe",0
'_GetFileInfo "C:\Program Files\Microsoft Office\Office14\",0
'_GetFileInfo "C:\",0
Declare IconStatic&,S1&,S2&
Declare A1&,A2&,A3&,A4&,A5&
Declare D1&,D2&,D3&,D4&,D5&,D6&,D7&,D8&
Let IconStatic& = @Control("Static","",$50000103,220,4,0,0,%hwnd,2001,%Hinstance,$0)
Sendmessage(Iconstatic&,$0170,val(SUBSTR$(@$(0),1,";"))&,0)
Let S1& = @Control("Static",ADD$("Dateiname : ",SUBSTR$(@$(0),2,";")),$50000100,10,16,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(S1&)
Let S2& = @Control("Static",ADD$("Dateityp : ",SUBSTR$(@$(0),3,";")),$50000100,10,40,270,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(S2&)
Let A1& = @Control("Button","Readonly",$50000105,10,80,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A1&)
Let A2& = @Control("Button","Hidden",$50000105,10,100,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A2&)
Let A3& = @Control("Button","System",$50000105,10,120,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A3&)
Let A4& = @Control("Button","Directory",$50000105,10,140,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A4&)
Let A5& = @Control("Button","Archiv",$50000105,10,160,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(A5&)
EnableWindow A1&,0
EnableWindow A2&,0
EnableWindow A3&,0
EnableWindow A4&,0
EnableWindow A5&,0
Case neq$(SUBSTR$(@$(0),4,";"),""):SetCheck A1&,1
Case neq$(SUBSTR$(@$(0),5,";"),""):SetCheck A2&,1
Case neq$(SUBSTR$(@$(0),6,";"),""):SetCheck A3&,1
Case neq$(SUBSTR$(@$(0),7,";"),""):SetCheck A4&,1
Case neq$(SUBSTR$(@$(0),8,";"),""):SetCheck A5&,1
Let D1& = @Control("Static",ADD$(ADD$("Grösse : ",SUBSTR$(@$(0),9,";"))," Bytes"),$50000100,10,200,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D1&)
Let D2& = @Control("Static",ADD$("Longname : ",SUBSTR$(@$(0),10,";")),$50000100,10,220,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D2&)
Let D3& = @Control("Static",ADD$("Shortname : ",SUBSTR$(@$(0),11,";")),$50000100,10,240,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D3&)
Let D4& = @Control("Static",ADD$("Erstellungsdatum : ",SUBSTR$(@$(0),12,";")),$50000100,10,260,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D4&)
Let D5& = @Control("Static",ADD$("Erstellungsdzeit : ",SUBSTR$(@$(0),13,";")),$50000100,10,280,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D5&)
Let D6& = @Control("Static",ADD$("Letzter Zugriff am : ",SUBSTR$(@$(0),14,";")),$50000100,10,300,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D6&)
Let D7& = @Control("Static",ADD$("geändert am : ",SUBSTR$(@$(0),15,";")),$50000100,10,320,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D7&)
Let D8& = @Control("Static",ADD$("um : ",SUBSTR$(@$(0),16,";")),$50000100,10,340,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D8&)
Windowtitle ADD$("Info - ",SUBSTR$(@$(0),2,";"))
@SetClassLong(%hwnd,-14,val(SUBSTR$(@$(0),1,";")))
setwindowpos %hwnd = 50,50-280,400
Waitinput
End
 
XProfan 11
So Computer sind halt auch nur Menschen...
06.02.2019  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

2.282 Betrachtungen

Unbenanntvor 0 min.
Georg Teles26.08.2019
Michaeal23.08.2019
Pedro Miguel26.05.2019
Uwe ''Pascal'' Niemeier12.05.2019
Mehr...

Themeninformationen

Dieses Thema hat 2 Teilnehmer:

p.specht (1x)
unbekannt (1x)


AGB  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Impressum  |  Mart  |  Support  |  Suche

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie