In SaveDialog anderer Anwendung werte ändern nonVCL

[ts_abc]

Hallo,

habe folgendes Problem, öffne ein Programm, öffne dort den SaveDialog editiere Dateiname und Typ. Ich habe dafür diesen Quelltext verwendet nur übernimmt der SaveDialog die Änderungen nicht. Wo könnte da der Fehler liegen?

Delphi-Quellcode:

var tmpDlg, tmpDlgI: HWND; t: array[0..MAX_PATH] of Char; SPs2: String;
...
tmpDlg := FindWindow('#32770', 'Save Extended Bitmap');
if tmpDlg > 0 then begin
  tmpDlgI := GetDlgItem(tmpDlg, 1152);
  if tmpDlgI > 0 then begin
    StrCopy(t, PChar(SPs2));
    SendDlgItemMessage(tmpDlg, 1152, WM_SETTEXT, 0, Integer(@t));
    SendDlgItemMessage(tmpDlg, 1152, EM_SETMODIFY, Integer(True),0);

    t := 'DXT3';
    tmpDlgI := GetDlgItem(tmpDlg, 1136);
    SendDlgItemMessage(tmpDlg, 1136, CB_SELECTSTRING, -1, Integer(@t));
    PostMessage(tmpDlg, WM_COMMAND, makewparam(1136,CBN_SELCHANGE), Integer(@tmpDlgI));

    PostMessage(tmpDlg, WM_COMMAND, makewparam(1,BN_CLICKED), 0);
  end; // Items end
end; // Dlg end
...

Gruß Thomas