(512)  Login

English
Source / code snippets

Reading File Information

 

CompileMarkSeparation
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 ss=s2>= 50,50-280,400
Waitinput
end
 
07/15/07  ▲
 




p.specht

Restauriert and INC itegriert (- without warranty):
CompileMarkSeparation
'File-Information read
'_GetFileInfo "C:programs\Microsoft Office\Office\winword.exe",0
'Übergabe:
'Par 1 = either one Dateiname or one Ordnername or one volume (C:)
'with Ordner and volume whom Backslash not forget
'Par 2 = Flag for Icongroesse ( 0 = tall, 1 = small)
'Rückgabestring is through Semikolon separated aufgebaut
'and can through Substr$(...) zerlegt go, and of course in 16 pieces:
'1 = Iconhandle
'2 = FileName
'3 = Filetyp
'4 = Attrib (Readonly)
'5 = Attrib (Hidden)
'6 = Attrib (system)
'7 = Attrib (Directory)
'8 = Attrib (archive)
'9 = Filegroesse(Bytes)
'10 = Longname
'11 = Shortname
'12 = Erstellungsdatum
'13 = Erstellungszeit
'14 = last grabbed (date)
'15 = changed on the (date)
'16 = changed on the (Time)
'----- FILEINFO.INC ---------------------------------------------------
'--- with Substitute for 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 and Dateityp
    Let Back$ = Add$(STR$(Long(FileInfo#,0)),Add$(";",String $(FileInfo#,12)))
    Let Back$ = Add$(Add$(Back$,";"),String $(FileInfo#,272))
    FI& = GetFileAttributes(File#)
    '   attributes

    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 and 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$,stature$("00",word(Filetime2#,6)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,stature$("00",word(Filetime2#,2)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,stature$("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$,stature$("00",word(Filetime2#,8)))
            Let Back$ = Add$(Back$,":")
            Let Back$ = Add$(Back$,stature$("00",word(Filetime2#,10)))
            Let Back$ = Add$(Back$,":")
            Let Back$ = Add$(Back$,stature$("00",word(Filetime2#,12)))

        else

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

        Endif

        '       last grabbed
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

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

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,stature$("00",word(Filetime2#,6)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,stature$("00",word(Filetime2#,2)))
            Let Back$ = Add$(Back$,".")
            Let Back$ = Add$(Back$,stature$("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-date
        FileTimeToLocalFileTime(add(FileInfo1#,12),Filetime1#)
        FileTimeToSystemTime(Filetime1#,Filetime2#)

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

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

        else

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

        Endif

        '       changed Time

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

            Let Back$ = Add$(Back$,";")
            Let Back$ = Add$(Back$,stature$("00",word(Filetime2#,8)))
            Let Back$ = Add$(Back$,":")
            Let Back$ = Add$(Back$,stature$("00",word(Filetime2#,10)))
            Let Back$ = Add$(Back$,":")
            Let Back$ = Add$(Back$,stature$("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

'----------------------------------------------------------------------------------
'example:
DEF GetButtonFaceColor(0) External("User32","GetSysColor",15)
DEF @SetClassLong(3) !"User32","SetClassLongA"
'###############################
'Definitionen Thomas Hoelzer
Def GetStockObject(1) !"GDI32","GetStockObject"
Def SetDefaultGUIFont(1) SendMessage(&(1),$30,Val(GetStockObject($11)),1)
'###############################
' $I FileInfo.inc ' here not eingebunden there already supra in the program. otherwise splitten!
SetTrueColor 1
Windowstyle 24
Window Add(%maxx,0),0 - 0,0
cls GetButtonFaceColor()
'HIER OWN EXISTIERENDE TESTPFADE/FILES DEFINIEREN
'  and each only a row of it 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:\programs\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 grabbed on the : ",SUBSTR$(@$(0),14,";")),$50000100,10,300,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D6&)
Let D7& = @Control("Static",ADD$("geändert on the : ",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
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
02/06/19  ▲
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

5.585 Views

Untitledvor 0 min.
Michael Hettner vor 24 Tagen
Member 862464105/12/24
Georg01/25/21
N.Art11/18/20
More...

Themeninformationen

this Topic has 2 subscriber:

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


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie