Sziasztok!
 Probaltatok mar aux nevezetu konyvtart letrehozni windows platformon?
 Na nem, probaljatok ki, nem lehet azt mondja, hogy ilyen mar van
 pedig en nem csinaltam.
 Tudja valaki mi ez?
 Koszi, ha lehet maganba is.

A GetUserName azert nem jo, mert az az aktualis process tulajdonosanak
nevet adja vissza, a service - ket az operacios rendszer futtatja, igy
a tulajdonos az NT SYSTEM, ez zsakutca.
Viszont a kornyezeti valtozot megnezem, hatha abbol kilehet olvasni.

Doma

Komolytalan vagy, ha komolyan gondoltad ...

Doma

> Tudna valaki segiteni olyan forraskoddal, ami kepes egy ZIP fajl
> tartalmat kilistazni? Nem kell semmi extra, csak a neveket adja
> vissza.

A zip fajl vegen minden bele csomagolt fajlnak van egy rekordja, ami
ezzel a 4 bajttal kezdodik: 50 4b 01 02. Erre keress ra. Ezutan
kovetkeznek a fajlra vonatkozo adatok:

word    version made by
word    version needed to extract
word    general purpose flags
word    compression method (pelda)
word    last mod file time
word    last mod file date
dword   crc32
dword   compressed size
dword   original size
word    filename length
word    extra field length
word    file comment length
word    starting disk number
word    internal file attributes
dword   external file attributes
dword   offset of local header

Innentol a fajl neve kovetkezik, minden "\" helyett "/" van benne.
Utana pedig a kovetkezo fajl adatai, szinten 50 4b 01 02 kezdettel.

Pityu

> az lenne a keresem, hogy azt a fv-t, ami a szamla vegen a szambol
> szoveges format csinal valaki ossza meg velem. (valami strukturalt
> nyelven)

VB-ben irtam egyszer egy dll-t, abbol ollozok:

Dim num, tempnum As Long
Dim numtext As String

Dim dec1(9) As String
Dim dec10(9) As String
Dim dec10p(9) As String
Dim dec1000(11) As String

dec1(0) = ""
dec1(1) = "egy": dec1(2) = "ketto": dec1(3) = "harom": dec1
(4) = "negy": dec1(5) = "ot"
dec1(6) = "hat": dec1(7) = "het": dec1(8) = "nyolc": dec1
(9) = "kilenc"

dec10(0) = ""
dec10(1) = "tiz": dec10(2) = "husz": dec10(3) = "harminc": 
dec10(4) = "negyven": dec10(5) = "otven"
dec10(6) = "hatvan": dec10(7) = "hetven": dec10(8) 
= "nyolcvan": dec10(9) = "kilencven"

dec10p(0) = ""
dec10p(1) = "tizen": dec10p(2) = "huszon": dec10p(3) 
= "harminc": dec10p(4) = "negyven": dec10p(5) = "otven"
dec10p(6) = "hatvan": dec10p(7) = "hetven": dec10p(8) 
= "nyolcvan": dec10p(9) = "kilencven"

dec1000(0) = "": dec1000(1) = "ezer": dec1000(2) 
= "millio": dec1000(3) = "milliard"
dec1000(4) = "billio": dec1000(5) = "billiard": dec1000(6) 
= "trillio": dec1000(7) = "trilliard"
dec1000(8) = "quadrillio": dec1000(9) = "quadrilliard": 
dec1000(10) = "quinquillio": dec1000(11) = "quinquilliard"

num = atalakitando_szam

If num = 0 Then
    numtext = "nulla"
Else
    numtext = ""
    tempnum = Abs(num)
    numgroup = 0
    While tempnum > 0
        temp3 = tempnum Mod 1000
        If temp3 > 0 Then numtext = dec1000(numgroup) + 
numtext
        numgroup = numgroup + 1

        d1 = temp3 \ 100: temp3 = temp3 Mod 100: d2 = temp3 
\ 10: d3 = temp3 Mod 10
        numtext = dec1(d3) + numtext
        If d3 = 0 Then numtext = dec10(d2) + numtext Else 
numtext = dec10p(d2) + numtext
        If d1 > 0 Then numtext = dec1(d1) + "szaz" + numtext

        tempnum = tempnum \ 1000
        If tempnum > 0 And temp3 > 0 And Abs(num) > 2000 
And numtext <> "" Then numtext = "-" + numtext
    Wend
    If num < 0 Then numtext = "minusz " + numtext
End If

result = numtext

Hi!

Arra lennek kivancsi, hogy acces adatbazisbol hogy tudok beolvasni egy
tablat, hogy tudok uj ertekekek felvinni a mezokbe. Esetleg van ra
valami kesz komponens? koszi!

Sziasztok
Olyan problemam van hogy Qbasic-ben megprobaltam exe-t kesziteni, de
bc.exe file-t keres a program. Ha megvan valakinek szeretnem ha
elkuldene a  -ra. (Vagy az egesz qbasic-et ha nem
torvenyellenes)
:))
kossz