Announcement

**Hagen Reddmann** · 12.01.2002, 04:58

hMem ist ein mit GlobalAlloc() alloziertes Speicherhandle.

<pre>

var
hMem: Thandle;
data: PDragInfoA;
FileName: String;
Size: Integer;
begin
FileName := 'c:\msdos.sys';
Size := SizeOf(TDragInfoA) + Length(FileName) +2;
hMem := GlobalAlloc(Size, GHND);
Data := GlobalLock(hMem);
Data.uSize := SizeOf(TDRagInfoA);
Data.Pt := KoordinateDesZielFenstersInScreenKoordinaten;
Data.fNC := True;
Data.grfKeyState := 0; // I don't known
PChar(Data.lpFileList) := PChar(@Data.grfKeyState) + 4;
MOve(Pointer(FileName)^, data.lpFileList^, Length(FileName));
GlobalUnlock(hMem);
end;

</pre>

hMem ist nun das handle f�r SendMessage(wm_DropFiles,..);
Der obige code ist nicht getestet.

Hage

**Hagen Reddmann** · 12.01.2002, 05:37

<pre>
<code>uses ShellObj, Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
 
function MakeDrop(const FileNames: array of String): THandle;
// erzeugt ein hDrop Object
var
I,Size: Integer;
Data: PDragInfoA;
P: PChar;
begin
// berechne notwendig speichergr��e
Size := SizeOf(TDragInfoA) +1;
for I := 0 to High(FileNames) do
Inc(Size, Length(FileNames[I]) +1);
// alloziere den speicher
Result := GlobalAlloc(GHND or GMEM_SHARE, Size);
if Result <> 0 then
begin
Data := GlobalLock(Result);
if Data <> nil then
try
// fülle daten
Data.uSize := SizeOf(TDragInfoA);
P := PChar(@Data.grfKeyState) + 4;
Data.lpFileList := P;
// am ende des headers nun die filenamen getrennt mit #0
for I := 0 to High(FileNames) do
begin
Size := Length(FileNames[I]);
Move(Pointer(FileNames[I])^, P^, Size);
Inc(P, Size +1);
end;
finally
GlobalUnlock(Result);
end else
begin
// speicher konnte nicht gelockt werden
GlobalFree(Result);
Result := 0;
end;
end;
end;
 
function MyEnum(Wnd: hWnd; Res: PInteger): Bool; stdcall;
// suche ein child fenster mit klassennamen 'TEditControl'
var
N: String;
begin
SetLength(N, MAX_PATH);
SetLength(N, GetClassName(Wnd, Pointer(N), Length(N)));
Result := AnsiCompareText('TEditControl', N) <> 0;
if not Result then Res^ := Wnd;
end;
 
var
Wnd: HWnd;
Drop: hDrop;
begin
// suche Delphis Editor Fenster
EnumChildWindows(FindWindow('TEditWindow', nil), @MyEnum, Integer(@Wnd));
if IsWindow(Wnd) then
begin
// Delphis editor gefunden, also �ffne msdos.sys
Drop := MakeDrop(['c:\msdos.sys']);
if Drop <> 0 then PostMessage(Wnd, wm_DropFiles, Drop, 0);
// ich weis nicht ob wir den speicher freigeben müssen !!
// auf alle f�lle funktionierts
GlobalFree(Drop);
end;
end;

</code></pre>
&#10

**meisterproppa** · 12.01.2002, 18:00

Hallo Hagen

ich k�nnt vor freude luftspr�nge machen,hab deinen code ein wenig
umgebaut und es klappt suuuuuppppppaaaa.

hast auf jeden fall was gut bei mir,
seit einer woche schlag ich mich mit diesem problem rum,endlich ist es geschafft ......

herzlichen dank nochmal du hast mir echt geholfen,ich glaub ohne dich w�re ich aufgeschmissen gewesen, da mir niemand so recht sagen konnt wie die wm funktioniert.
es kamen immer nur die einfachen wm messages und shellexecute das mir �berhaupt nicht half,da das programm ein wenig eigenwillig mit dem einladen der files ist......

da hab ich aber noch eine frage, das fremdprogramm erzeugt noch eine progressbar, auch dieses handle habe ich, kann ich die mit irgendeiner message aus meinem programm abfragen??? so das in meinem programm die eigene progressbar den fortschritt des fremdprogramms darstellen kann???

**Hagen Reddmann** · 13.01.2002, 01:14

<pre>

<code>uses ComCtrls, CommCtrl;
 
procedure SynchronizeProgressbar(ProgressBar: TProgressbar; Source: hWnd);
begin
ProgressBar.Min := SendMessage(Source, PBM_GetRange, 1, 0);
ProgressBar.Max := SendMessage(Source, PBM_GetRange, 0, 0);
ProgressBar.Position := SendMessage(Source, PBM_GetPos, 0, 0);
end;
 
// allerdings funktioniert das nur mit 32Bit Windows-ProgressBars
// die mit InitCommonControls() laufen
 
Gru� Hagen

</code></pre&gt

**meisterproppa** · 13.01.2002, 22:31

Hallo Hagen

hab nochmal vielen dank f�r deine unterst�tzung.
Wei� das wirklich sehr zu sch�tzen, das mit der
Prgressbar hat auch super geklappt,hab zwar jetzt noch andere probleme , aber will dich nicht weiter nerven, da du sicherlich
noch anderes zu tun hast .
ALso nochmals herzlichen dank....

**Hagen Reddmann** · 14.01.2002, 13:26

Stell die Fragen trotzdem, es k�nnen andere antworten und vielen anderen ist mit der L�sung geholfen

**meisterproppa** · 14.01.2002, 22:00

Hallo Hagen,
Na gut du hast es so gewollt.
Wie kann ich die tastenkombi strg+s an ein fenster senden???
hab es schon mit postmessage versucht, klappt aber nicht, hab die tastendr�cke nacheinander geschickt.

2. Problem wie bekomme ich aus einer Fremdanwendung ein statictext das seinen inhalt zur laufzeit hin �ndert???
ein handle hab' ich , aber nur solange wie nichts drin steht, oder ich dann den wert der in den statictext drinsteht, in findwindowex eingebe.
brauche den statictext aus der fremdanwendung um sie in meinem programm auszuwerten.

Vielen Dank schon mal.....

**Christian Seehase** · 15.01.2002, 00:13

Moin meisterproppa, 
 
zu Deinem zweiten Problem schau doch mal hier: 
 
<a href="/webx?14@@.ee89bc2">maik "�berpr�fen, ob ein Fenster einer anderen Anwendung angezeigt wird." 14.01.2002 23:05</a> 
http://www.entwickler-forum.de\webx?14@@.ee89bc2/9 
 
wahrscheinlich kommt f�r Dich die ID des Statics in Frage, um das Handle zu ermitteln. Sollte sich mit einer abge�nderten Version meines Programmes hinbekommen lassen. 
 
Zu Deinem ersten Problem: 
Was hast Du denn genau an das Fenster geschickt, um Strg-S zu simulieren? 
 
Ciao 
Chri

**meisterproppa** · 15.01.2002, 01:56

hallo
also an das fenster hab ich
Postmessage(handle,WM_Keydown , Vk_Control,0);
Postmessage(handle,WM_Keydown , Ord('S'),0);
Postmessage(handle,WM_Keyup, Ord('S'),0);
Postmessage(handle,WM_Keyup, VK_Control,0);

gesendet,
hat nat�rlich nicht geklappt.....

die andere geschichte von dir schau ich mir noch mal genau an,
hab's gerade nur �berflogen.....
kann man die ID von statictext auch mit Winsight herausfinden????

**Christian Seehase** · 15.01.2002, 13:28

Moin meisterproppa, 
 
hat denn das Fenster, an den die Messages geschickt werden �berhaupt den Keyboardfocus? 
Ggf. k�nntest Du daf�r auch das Programm benutzen, allerdings das AttachThreadInput Drumherum. Das soll n�mlich genau dass sicherstellen. 
Ob man die ID eines Statictext auch mit WinSight herausfinden kann habe ich nicht gepr�ft, aber ich gehe mal davon aus. Nur finde ich die Kurz�bersicht, wie ich sie da mit CollectChildInfoTemp zusammenstelle �bersichtlicher. 
 
Ciao 
Chri

**meisterproppa** · 15.01.2002, 20:56

hallo Christian

Also eingabefokus hat das fenster ?????
Aber irgendwie ging das bei ner tastenkombi anders....

Announcement

Wie kann ich mit hilfe von WM_Dropfiles.......

Wie kann ich mit hilfe von WM_Dropfiles.......

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment