1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
| procedure TFrmTestStructureMemoire.TimerAutoSetPrintFileName(Sender: TObject);
var
HwndEdit, HwndButton: HWND;
lpClassName: PChar; // pointer to class name
lpWindowName: PChar; // pointer to window name
lpString: PChar; // address of string
HwndParent: HWND;
HwndChildAfter: HWND; // handle to a child window
lpszClass: PChar; // pointer to class name
lpszWindow: PChar; // pointer to window name
lpRes : array[0..256] of Char;
TmpStr : String;
begin
lpClassName:= nil; //'#32770'; // pointer to class name
lpWindowName:= 'Imprimer dans un Fichier'; // pointer to window name
{Récupère le handle de la boite de dialogue Ouvrir}
HwndParent := FindWindow(lpClassName, lpWindowName);
if HwndParent <> 0 then begin
if GetWindowText( HwndParent, lpRes, 256) > 0 then begin
FichierLog('ShowMessage','Parent GetWindowText',lpRes);
end;
{ Mettre la fenêtre au premier plan en connaissant son handle }
BringWindowToTop(HwndParent);
HwndChildAfter := GetWindow(HwndParent, GW_CHILD);
if HwndChildAfter <> 0 then begin
lpszClass := 'Edit';
lpszWindow := nil;
HwndEdit := FindWindowEx(HwndParent, HwndChildAfter, lpszClass, lpszWindow);
if HwndEdit <> 0 then begin
if GetWindowText( HwndEdit, lpRes, 256) > 0 then begin
FichierLog('ShowMessage','Old Edit GetWindowText', lpRes);
end;
TmpStr := '.\PrintFile' + IntToStr(Timer1.Tag) + '.txt';
if DeleteFile(TmpStr) then begin
FichierLog('ShowMessage','DeleteFile', TmpStr);
end;
lpString := PChar(TmpStr);
// lpString := nil;
// if not SetWindowText(HwndEdit, lpString) then begin
// FichierLog('ShowMessage','SetWindowText', IntToStr(GetLastError()));
// end else begin
SendMessage(HwndEdit, WM_SETTEXT, 0, Longint(lpString));
SendMessage(HwndEdit, CM_TEXTCHANGED, 0, 0);
if GetWindowText( HwndEdit, lpRes, 256) > 0 then begin
FichierLog('ShowMessage','New Edit GetWindowText', lpRes);
end;
//end;
end else begin
FichierLog('ShowMessage','FindWindowEx', IntToStr(GetLastError()));
end;
lpszClass := 'Button';
lpszWindow := 'OK';
HwndButton := FindWindowEx(HwndParent, HwndChildAfter, lpszClass, lpszWindow);
if HwndButton <> 0 then begin
// SendMessage(HwndButton, BM_CLICK, 0, 0);
SendMessage(HwndButton, WM_LBUTTONDOWN, 0, 0);
SendMessage(HwndButton, WM_LBUTTONUP, 0, 0);
end else begin
FichierLog('ShowMessage','FindWindowEx', IntToStr(GetLastError()));
end;
end else begin
FichierLog('ShowMessage','GetWindow', IntToStr(GetLastError()));
end;
end else begin
FichierLog('ShowMessage','FindWindow', IntToStr(GetLastError()));
end;
end; |
Remplacer une API par son propre code dans un processus (injection de code)
Répondre avec citation
... ou plus simple encore, modifier dans l'entête EXE le nom de la DLL 
Envoyé par tothpaul
Partager