(728)  Registro

Español
Fuente/ Codesnippets

Auslesen Expediente Informationen

 

KompilierenMarcaSeparación
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
 
15.07.2007  ▲
 




p.specht

Restauriert y INC itegriert (- sin Garantie):
KompilierenMarcaSeparación
'Expediente-Informationen auslesen
'_GetFileInfo "C:Programas\Microsoft Office\Office\winword.exe",0
'Übergabe:
'Par 1 = Entweder una Dateiname oder una Ordnername oder una Datenträger (C:)
'En Ordner y Datenträger el Backslash no vergessen
'Par 2 = Flag para Icongroesse ( 0 = Gross, 1 = klein)
'Rückgabestring es por Semikolon getrennt aufgebaut
'y kann por Substr$(...) zerlegt voluntad, y zwar en 16 Teile:
'1 = Iconhandle
'2 = FileName
'3 = Filetyp
'4 = Attrib (Readonly)
'5 = Attrib (Hidden)
'6 = Attrib (Sistema)
'7 = Attrib (Directory)
'8 = Attrib (Archiv)
'9 = Filegroesse(Bytes)
'10 = Longname
'11 = Shortname
'12 = Erstellungsdatum
'13 = Erstellungszeit
'14 = Letzter Zugriff (Datum)
'15 = Geändert al (Datum)
'16 = Geändert al (Tiempo)
'----- FILEINFO.INC ---------------------------------------------------
'--- con Ersatz para ProfALt.inc
:PROC ADD :PARAMETERS A!,B!:RETORNO A!+B!:ENDPROC
:PROC MUL :PARAMETERS A!,B!:RETORNO A!*B!:ENDPROC
:PROC SUB :PARAMETERS A!,B!:RETORNO A!-B!:ENDPROC
:PROC EQU :PARAMETERS A!,B!:RETORNO A!=B!:ENDPROC
:PROC NEQ :PARAMETERS A!,B!:RETORNO A!<>B!:ENDPROC
:PROC LT :PARAMETERS A!,B!:RETORNO A!<B!:ENDPROC
:PROC GT :PARAMETERS A!,B!:RETORNO A!>B!:ENDPROC
:PROC DIV :PARAMETERS A!,B!:RETORNO A!/B!:ENDPROC
:PROC POW :PARAMETERS A!,B!:RETORNO A!^B!:ENDPROC
:PROC MOD :PARAMETERS A!,B!:RETORNO A! MOD B!:ENDPROC
:PROC DIV& :PARAMETERS A!,B!:RETORNO A!\B!:ENDPROC
:PROC ADD$ :PARAMETERS A$,B$:RETORNO A$+B$:ENDPROC
:PROC EQU$ :PARAMETERS A$,B$:RETORNO A$=B$:ENDPROC
:PROC NEQ$ :PARAMETERS A$,B$:RETORNO A$<>B$:ENDPROC
:PROC LT$ :PARAMETERS A$,B$:RETORNO A$<B$:ENDPROC
:PROC GT$ :PARAMETERS A$,B$:RETORNO A$>B$:ENDPROC
:Proc AND :parámetros a&,b&:volver 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"
Declarar FileInfo#, FileInfo1#, FileTime1#, Filetime2#, File#

Proc _GetFileInfo

    Parámetros File$,I&
    Declarar 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 y Dateityp
    Let Back$ = Add$(STR$(Largo(FileInfo#,0)),Add$(";",String$(FileInfo#,12)))
    Let Back$ = Add$(Add$(Back$,";"),String$(FileInfo#,272))
    FI& = GetFileAttributes(File#)
    '   Atributos

    If @AND(Fi&,1)

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

    Más'=casenot @AND(Fi&,1)

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

    Endif

    If @AND(Fi&,2)

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

    Endif

    If @AND(Fi&,4)

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

    Más'=Casenot @AND(Fi&,4)

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

    Endif

    If @AND(Fi&,16)

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

    Más'casenot @AND(Fi&,16)

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

    Endif

    If @AND(Fi&,32)

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

    Más'=casenot @AND(Fi&,32)

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

    Endif

    '   FileTimes y 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)))

        más

            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)))

        más

            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)))

        más

            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)))

        más

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

        Endif

        '       Geändert Tiempo

        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)))

        más

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

        Endif

    Endif

    Disponer File#
    Disponer FileInfo#
    Disponer FileInfo1#
    Disponer FileTime1#
    Disponer FileTime2#
    FindClose(File&)
    Volver Back$

endProc

'----------------------------------------------------------------------------------
'Ejemplo:
DEF GetButtonFaceColor(0) Externo("User32","GetSysColor",15)
DEF @SetClassLong(3) !"User32","SetClassLongA"
'###############################
'Definitionen por Thomas Hoelzer
Def GetStockObject(1) !"GDI32","GetStockObject"
Def SetDefaultGUIFont(1) SendMessage(&(1),$30,Val(GetStockObject($11)),1)
'###############################
' $I FileInfo.inc ' Hier no eingebunden como ya oben en el Programa. Sonst splitten!
SetTrueColor 1
Windowstyle 24
Ventana Add(%maxx,0),0 - 0,0
cls GetButtonFaceColor()
'HIER EIGENE EXISTIERENDE TESTPFADE/FILES DEFINIEREN
'  y jeweils sólo una Línea su 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:\Programas\Microsoft Office\Office\winword.exe",0
'_GetFileInfo "C:\Program Files\Microsoft Office\Office14\",0
'_GetFileInfo "C:\",0
Declarar IconStatic&,S1&,S2&
Declarar A1&,A2&,A3&,A4&,A5&
Declarar 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 al : ",SUBSTR$(@$(0),14,";")),$50000100,10,300,200,24,%hwnd,2002,%Hinstance,$0)
SetDefaultGUIFont(D6&)
Let D7& = @Control("Static",ADD$("geändert al : ",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'...
06.02.2019  ▲
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

5.279 Views

Untitledvor 0 min.
Member 862464112.05.2024
Georg25.01.2021
N.Art18.11.2020
iF14.09.2020
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie