delphi - Error when I try EnumProcessModules in windows 8 64bit -

-

i'm trying pick modules of process, according msdn not possible handle modules th32cs_snapmodule function in 32bit applications , using enumprocessmodules function can not list modules of defined process , go infinite loop.

i had success compiling application windows 64bit.

here code error !

procedure getmodule(processid: cardinal); var   modules: array of hmodule;   cbneeded, i: cardinal;   moduleinfo: tmoduleinfo;   modulename: array[0..max_path] of char;   phandle: thandle;   item: tlistitem; begin   setlength(modules, 1024);   phandle := openprocess(process_query_information + process_vm_read, false, processid);   if (phandle <> 0)   begin     enumprocessmodules(phandle, @modules[0], 1024 * sizeof(hmodule), cbneeded); //getting enumeration of modules     setlength(modules, cbneeded div sizeof(hmodule)); //setting number of modules     := 0 length(modules) - 1 //start loop     begin       item := form1.listview2.items.add;       item.caption := inttostr(i); // testing     end;     closehandle(phandle);   end; end;

you don't enter infinite loop; enter long loop. when enumprocessmodules fails, evidently sets cbneeded := 0. sets length of array zero, too. enter loop starting @ 0 , ending @ –1. interpreted cardinal, value –1 4294967295. takes long (but non-infinite) time count high, when you're adding items list view along way. got tired of waiting program , killed before finished running loop.

there @ least 2 changes need make in order proceed program:

  1. declare i integer calculating length(modules) - 1 doesn't underflow.

  2. pay attention return values of api calls. never ignore api return value. msdn says enumprocessmodules returns 0 when fails. check that. if returns zero, call getlasterror find out reason.

    also, don't assume 1024 big enough array; it's possible cbneeded set higher number. when happens, you'll iterate on more array items received. (the values null handles.)


Comments

Post a Comment

Popular posts from this blog

python - TypeError: start must be a integer -

-
i trying draw 5 turtles, getting typeerror on line 25. here code: import turtle wn = turtle.screen() redrose = turtle.turtle() color = input("what background color be?") fillcolor_f = input("what color of rose be?") redrose.hideturtle() redrose.speed(30) redrose.penup() redrose.left(180) redrose.forward(175) redrose.right(90) redrose.forward(30) redrose.right(90) redrose.pendown() def drawrose(red): redrose.color("pink") redrose.fillcolor(fillcolor_f) redrose.fill(true) in range(red): redrose.forward(i) redrose.right(49) in range(5): drawrose(redrose) redrose.penup() redrose.forward(350) redrose.right(144) redrose.pendown() redrose.fill(false) drawrose(50) wn.bgcolor(color) i trying draw 5 roses, produces errors. doing in interactivepython.org. you recursively calling drawrose wrong parameter. on line 23 ( for in range(red): ) expect red integer...
Read more

c# - DevExpress RepositoryItemComboBox BackColor property ignored -

-
i have following code almost works properly; private void cbstatus_drawitem(object sender, listboxdrawitemeventargs e) { string item = e.item string; if (item != null) { switch (item) { case "1": e.appearance.forecolor = color.green; e.appearance.backcolor = color.green; break; case "2": e.appearance.forecolor = color.orange; e.appearance.backcolor = color.orange; break; case "3": e.appearance.forecolor = color.red; e.appearance.backcolor = color.red; break; } } } when dropdown shown, items forecolor correct, backcolor remains whatever backcolor of theme is; i.e. if i've got set dark theme, backcolor dark, cells in gridview, rather being green/orange/red. i've tried setting e.appearance.options.usebackcolor trying set e....
Read more

django - Creating multiple model instances in DRF3 -

-
1) create multiple model instances 1 api call, asked here: how create multiple model instances django rest framework? tried solution named in link, no success. i trying upload multiple files in 1 api call. result: files uploaded (only once overwrote perform_create) 1 instance created (if send 2 files, latter created instance). my code: class fileuploadserializer(serializers.modelserializer): def __init__(self, *args, **kwargs): many = kwargs.pop('many', true) super(fileuploadserializer, self).__init__(many=many, *args, **kwargs) class meta: model = fileupload read_only_fields = ('created', 'datafile', 'owner') class fileuploadviewset(viewsets.modelviewset): queryset = fileupload.objects.all() serializer_class = fileuploadserializer parser_classes = (multipartparser, formparser, ) def perform_create(self, serializer): file_list = self.request.data.getlist('file') ...
Read more