Segitseg!

Probalok ismerkedni a Component Object Modellel Delphi alatt, de
elakadtam. Keptelen vagyok rajonni, hogy hogy mukodik az

IEnumMoniker::Next(ULONG celt, IMoniker * rgelt, ULONG * pceltFetched)

hivas (azaz delphiben az IEnumMoniker.Next).


A tunet: access violation at BLABLA write of adress 008800D4.

A cim teljesen hulyeseg, semmi koze az atadott parameterhez (sem az
ertekehez, sem a cimehez).

Probaltam mar minden hulyeseget (pointer, puffer, interface, pointerrre
mutato pointer, pufferre mutato pointer, interface-re mutato pointer)
atadni neki az 'rgelt' nevu parameterben, de mindig ugyanaz az erdemeny.

Probaltam megadni 'pceltFetched' parametert, noha a help szerint nem kell,
mert a 'celt' 1, de az sem segitett.

Az IEnumMoniker jonak tunik, egy IRunningObjectTable::EnumRunning adta,
aki semmilyen hibat nem uzent.

Ime a programreszlet:

procedure ...
var
  ROT: IRunningObjectTable;
  EnumMoniker: IEnumMoniker;
  Moniker: IMoniker;
begin
  if GetRunningObjectTable(0, ROT)<>S_OK then
    raise Exception.Create('GetRunningObjectTable failed');
  try
    if ROT.EnumRunning(EnumMoniker)<>S_OK then
      raise Exception.Create('EnumRunning failed');
    try
      while EnumMoniker.Next(1, Moniker, nil)=S_OK do begin // <-- itt
        ...

Sziasztok,

Kovacs Antal:
>1. Szeretek viruskodokat gyujteni, de azert nem levelezek
>   "idegen" (bocs) emberekkel, mert ez bizalmi kerdes.
>   Ugyanis ha kiadok a kezembol egy virust v. kodot,
>   tisztaba vagyok az illeto terveivel. Meg veszelyes dolog
>   "szerteszet" a vilagba szorni a kodokat, otleteket.

Igazad is van meg nem is. Ma mar ugyanis csak az nem talal 
rengeteg viruskodot az interneten felora alatt, aki nem akar.

Persze de, minek tovabbterjeszteni? Ha valaki rosszindulatuan akar
valamit kezdeni, az meg is tudja valositani... szerintem nem kell 
hozza az, hogy ilyen levlistan kerjen.

Sziasztok
Juan

Hi!

>    mov ax,0a000h
>    mov es,ax

Nem kell it ganyolni, kod szempontjabol a legjobb:
push 0a000h
pop es

Bar pascal nemtom, engedi-e?

Bye!
KSL, mostcsinalok 256 byte introt