delphi - How to get the highlighted item from the desktop or Windows Explorer with syslistview32? -

-

how might i, using delphi , syslistview32, highlighted item desktop or windows explorer?

i'm not sure mean item, posted here how focused item text. it's more complicated task because list view messages can't fill buffer between processes, need pass through virtual memory pages allocated in foreign process. principle same kind of manipulation foreign items directly. i'm not familiar process memory allocation; useful edit appreciated.

note: code below has been tested on 32 bit windows xp

function getfocuseditemtext(const lvhandle: hwnd): string; var size: cardinal;     process: thandle;     processid: dword;     memlocal: pointer;     memremote: pointer;     numbytes: cardinal;     itemindex: integer;  begin   result := '';    itemindex := sendmessage(lvhandle, lvm_getnextitem, -1, lvni_selected);    getwindowthreadprocessid(lvhandle, @processid);   process := openprocess(process_vm_operation or process_vm_read or process_vm_write, false, processid);    if (itemindex <> -1) , (process <> 0)   try     size := sizeof(tlvitem) + sizeof(char) * max_path + 1;     memlocal := virtualalloc(nil, size, mem_reserve or mem_commit, page_readwrite);     memremote := virtualallocex(process, nil, size, mem_reserve or mem_commit, page_readwrite);      if assigned(memlocal) , assigned(memremote)       try         zeromemory(memlocal, sizeof(tlvitem));          plvitem(memlocal)^           begin             mask := lvif_text;             iitem := itemindex;             psztext := lptstr(cardinal(memremote) + cardinal(sizeof(tlvitem)));             cchtextmax := max_path;           end;          numbytes := 0;          if writeprocessmemory(process, memremote, memlocal, size, numbytes)           if sendmessage(lvhandle, lvm_getitem, 0, lparam(memremote)) <> 0             if readprocessmemory(process, memremote, memlocal, size, numbytes)               result := string(pchar(cardinal(memlocal) + cardinal(sizeof(tlvitem))));        except on e: exception         showmessage('something bad happened :(' + slinebreak + e.message);       end;      if assigned(memremote)       virtualfreeex(process, memremote, 0, mem_release);      if assigned(memlocal)       virtualfree(memlocal, 0, mem_release);        closehandle(process);   end; end;

and here's how call; pass handle , you'll item's text

procedure tform1.button1click(sender: tobject); var s: string; begin   s := getitemtext(123456);    if s <> ''     showmessage(s); end;

Comments

Post a Comment

Popular posts from this blog

Cursor error with postgresql, pgpool and php -

-
hey, struggling bit determine exact cause of error has been popping in our release environment. there not seem dealing particular error on google. this error message getting: sqlstate[34000]: invalid cursor name: 7 error: portal "" not exist the error pops when using pdo prepared statements. this setup our release environment: pgpool 3.0.1 (the postgresql backend in streaming replication mode!) php 5.3.5 postgresql 9.0 edit: architecture 64bit. the same error not manifest in our test environment (edit: forgot mention, standard test environment uses postgresql 9.0 without pgpool). thus, led suspect pgpool @ least partly suspect. does know probable causes error are? edit: ok, here example of kind of code causes error. $sql = 'select * '; $sql .= 'from "mytable" "mystuff" '; $sql .= 'where "mytable"."status" = 1 '; $sql .= 'and "mytable"."mytableid" = :table...
Read more

delphi - ESC/P programming! -

-
why need use because printers using tprinter prints weird hieroglyph @ beginning of printable area. my problem if send commands, nothing happens. esc e (#27 #69) - sending escape sequence didn't work expected. removed first letter , rest of string made bold. eg. hello -> ello . after changed esc e esc (#27 #69 #27), worked fine. example managed figure out, but... trying select character table "esc t n" (#27 #116 n), make "õäöü" work. command doesn't work. nothing happens! , command supported esc/p, esc/p 2 , 9-pin esc/p, should work fine. manual can found here . if has ever needed use esc/p commands maybe 1 can shed light how work them! thanks in advance! edit: in previous post asked more or less same question though answers how did send commands printer. (i'll change question there according answers!) i accepted ken's answer, because claimed way transferred commands wasn't best , got work escape command. problem after t...
Read more

c++ - error: use of deleted function -

-
i've been working on c++ code friend has written , following error have never seen before when compiling gcc4.6: error: use of deleted function ‘gamefsm_<std::array<c, 2ul> >::hdealt::hdealt()’ implicitly deleted because default definition ill-formed: uninitialized non-static const member ‘const h_t floppokergamefsm_<std::array<c, 2ul> >::hdealt::h’ edit: comes part of code using boost msm: boost webpage edit2: there no = delete() used anywhere in sourcecode. generally speaking, error mean? should looking when type of error occurs? i don't think other answers mentioning =deleted; syntax correct. error message says default constructor has been deleted implicitly . says why: class contains non-static, const variable, not initialized default ctor. class x { const int x; }; since x::x const , must initialized -- default ctor wouldn't initialize (because it's pod type). therefore, default ctor, need define 1 (and must ...
Read more