| Slide |
Je voudrai recuperer le text d'une case d'une listview à partir de son handle, je dois m'y prendre mal, le handle est correctement recuperé, mais, quand je compille, il me dit que ListView_GetItemText n'est pas declaré, aidez moi svp, voici tt mon code :)
//Debut du code
procedure TForm1.Button1Click(Sender: TObject);
var h1,h2,hHandle,ServerBhandle,ListTable1server:hwnd;
Buffer : array[0..99] of Char;
begin
// Recuperation du handle de la fiche
hHandle:= FindWindow(nil, 'Titre de l'application');
If hHandle<>0 then
begin
//On enregistre le Handle du list BOX
{ICI JE RECUPERE LE HANDLE DE LA LISTVIEW}
//Etape intermediaire
h1:= FindWindowEx(
hHandle, // handle to parent window
0, // handle to a child window
'#53453', // pointer to class name
nil // pointer to window name
);
h2:= FindWindowEx(
h1, // handle to parent window
0, // handle to a child window
'#53453', // pointer to class name
nil // pointer to window name
);
//**** HANDLE DE LA PAGE SERVER ****
ServerBhandle:= FindWindowEx(
h2, // handle to parent window
0, // handle to a child window
'#53453, // pointer to class name
'Server' // pointer to window name
);
{HANDLE DE LA LIST VIEW RECUPERER ICI}
ListTable1server:= FindWindowEx(
ServerBhandle, // handle to parent window
0, // handle to a child window
'SysListView32', // pointer to class name
nil // pointer to window name
);
{Je recupere le text}
ListView_GetItemText( // PARTI KI NE SEMBLE PAS MARCHER
ListTable1server, // PARTI KI NE SEMBLE PAS MARCHER
1, // PARTI KI NE SEMBLE PAS MARCHER
0, // PARTI KI NE SEMBLE PAS MARCHER
Buffer, // PARTI KI NE SEMBLE PAS MARCHER
100 // PARTI KI NE SEMBLE PAS MARCHER
); // PARTI KI NE SEMBLE PAS MARCHER
form1.Caption:= string(Buffer);
end;
end;
//Fin du code |
