Announcement

**Andreas Kosch** · 02.07.2003, 11:54

Hallo,

>..d�rfte eine simple Windowsmessage sein, ich wei� nur nicht, welche..

nein - jede Anwendung ruft direkt die Win32-API-Funktion GetSaveFileName auf, die ihrerseiten den Standard-Dialog aus comdlg32.dll anzeigt. Im Fall von Delphi kapselt die VCL-Komponente diese API-Funktion ein, wobei je nach Konfiguration der alte bzw. neu Weg genutzt wird.

>..au�erdem den R�ckgabewert der Funktion TSaveDialog.execute ..

Soll nur die eigene (im Sourcecode vorliegende) Anwendung auf diesem Weg kontrolliert werden oder soll das global f�r das komplette System gelten

**Bernhard Geyer** · 02.07.2003, 12:32

Hallo,

>>..d�rfte eine simple Windowsmessage sein, ich wei� nur nicht, welche..

> nein ...

Es geht doch, Andreas. Dazu mu� "nur" die Adresse f�r den Funktionsaufruf im Adressbereich der Zielanwendung umgebogen werden. :-) 
F�r das Umbiegen einer WinAPI-Funktion in der eigenen Anwendung hab ich das schon mal gemacht.

Relativ einfach ist dies M�glich mit der PeImportHooks.HookImport-Methode aus der Jedi (http://sourceforge.net/projects/jcl) m�glich (VCS snapshots laden, da offizieles Release hier noch 'nen Buck hat). Hab damit schon mal die GetModuleHandle-Funktion aus der Win-API f�r eine geladene DLL auf eine eigene Funktion umgebogen.

Eine systemweite L�sung ist nat�rlich eine ziemliches Arbeit, da hier ein permanent laufende Anwendung (Systemdienst)? geschrieben werden mu�, welche beim Start jeder Anwendung diese entsprechend "Behandelt". Und ob da nicht irgendwann ein Virenscanner deine Anwendung als "Virus" betrachten

**Andreas Kosch** · 03.07.2003, 06:29

Hallo Bernhard,

genau das (Stichwort "Injekt-DLL") wollte ich vermeiden, damit wird schon jetzt genug Unsinn angestellt :-)

Eine einfache Win32-API-Funktion wie zum Beispiel MessageBox geht ja ganz einfach:
<pre>
uses
JclPeImage;

type
THookMessageBox = function(hWnd: HWND; lpText, lpCaption: PChar;
uType: UINT): Integer; stdcall;

var
OrgMessageBox : THookMessageBox = nil;

{------------------------------------------------------------}
{ Neue Fassung der Win32-API-Funktion MessageBox }
{------------------------------------------------------------}

function NewMessageBox(hWnd: HWND; lpText, lpCaption: PChar;
uType: UINT): Integer; stdcall;
begin
MessageBeep(0);
Result := MessageDlg(lpText, mtInformation, [mbYes], 0);
MessageBeep(0);
end;

procedure TForm2.ButtonHookClick(Sender: TObject);
begin
if PeImportHooks.HookImport(Pointer(HInstance), user32, 'MessageBoxA',
@NewMessageBox, @OrgMessageBox) then
StatusBar1.SimpleText := 'API-Funktion MessageBox wurde ausgetauscht.';
end;

procedure TForm2.ButtonMessageBoxClick(Sender: TObject);
begin
MessageBox(Handle, 'Text aus dem Client', 'Test', 0);
end;

procedure TForm2.ButtonUnHookClick(Sender: TObject);
begin
if PeImportHooks.UnhookByNewAddress(@NewMessageBox) then
begin
@OrgMessageBox := nil;
StatusBar1.SimpleText := '';
end;
end;
</pre>
Aber im Fall von GetSaveFileName haben wir es mit einer komplexen Struktur zu tun, die korrekt gef�llt/behandelt werden muss und die es auch noch in mehreren Ausf�hrungen (je Windows-Version und gesetztem Flag) gibt. Wenn der Austausch auch f�r "wildfremde" Anwendungen gelten soll, muss das Verhalten der originalen Funktion in Bezug auf die Struktur zu 100% simuliert werden. Der Aufwand ist entsprechend hoch.

Einfacher und sicherer ist hingegen das �berwachen des Dateisystem (FindFirstChangeNotification), um sich vom Betriebssystem die neu angelegte/ge�nderte Datei "melden" zu lassen. Das Programm kann dann die Datei an die richtige Stelle kopieren und das "falsche" Original l�schen

**Bernhard Geyer** · 03.07.2003, 07:07

Hallo Andreas,

das stimmt. Es ist mit sicherheit f�r den SaveDialog sehr schwierig. Und wahrscheinlich w�rde eine Implementierung (f�r allgemeing�ltige L�sung) �ber den Daumen gepeilt ca. 4-8 Wochen ben�tigen um die mei�ten Fallstricke zu beseitigen.

Die Idee mit der Dateisystem�berwachung ist nicht schlecht. D�rfte auch in wenigen Tagen zu l�sen sein und zus�tzlich evtl. mit einem Dialog verkn�pft der entsprechend erscheint um auf die Aktionen hinzuweisen d�rfte das evtl. auch verst�ndlicher sein

**Patrick Esche** · 04.07.2003, 09:25

Zeit spielt keine so gro�e Rolle, es mu� nicht in den n�chsten Tagen fertig sein... 
 
Die Dateisystem�berwachung mag einfacher zu l�sen sein, aber da str�ube ich mich irgendwie gegen. Angenommen, der Anwender schreibt einen Text und speichert ihn unter h:\Rundschreiben.doc, dann w�rde mein Tool das bemerken und einen zweiten Dialog aufgehen lassen, wo der Anwender noch einmal w�hlen mu�, mit was f�r einem Datensatz aus der Immobilienverwaltungssoftware diese Datei denn verkn�pft werden soll. Dann w�rde mein Tool die Datei an die entsprechende Stelle kopieren und versuchen, das Original zu l�schen - das schl�gt aber fehl, weil das Original ja noch in Bearbeitung ist. 
Abgesehen davon, da� dadurch das Dateisystem so langsam zugem�llt wird, w�rde es mich als Anwender auch ziemlich nerven, immer zwei Dialoge zu bekommen. 
Wenn ich das mit dem SaveDialog nicht hinbekommen sollte, lasse ich es eher ganz bleiben (war eigentlich auch nur so nebenbei gedacht, das ist kein sooo wichtiges Projekt). 
Was die Sache noch erschweren d�rfte, ist, da� ich den SaveDialog gar nicht �berschreiben m�chte, ich m�chte anstelle des SaveDialogs einen anderen Dialog aufgehen lassen, von dem aus der Anwender dann ggbf. (bspw. bei privatem Schriftverkehr) noch den SaveDialog aufrufen kann... 
Wenn das nicht gehen sollte, dann geht's halt nicht... 
 
Trotzdem Danke 
Patric

**Bernhard Geyer** · 04.07.2003, 14:44

Hallo Patrick,

dann ist mein erster Vorschlag richtig. Aber hat mit sehr hohen aufwand Verbunden.

Und ob er bis in die letzte Konsequenz durchzuf�hren ist ...

Announcement

"Speichern unter"-Dialog abfangen

"Speichern unter"-Dialog abfangen

Comment

Comment

Comment

Comment

Comment

Comment