GetSystemMetrics - Rahmen eines Fensters

[Premaider]

Sieht jetzt so aus:

Delphi-Quellcode:

var
 HWND:THandle;
 Width:Integer;
 Height:Integer;
 List: TStrings;
begin
  List := TStringList.Create;
  If Edit10.text='Breite' Then MessageDlg('Du hast keine Breite eingegeben', mtError, [mbOK], 0)
  Else If Edit11.text='Höhe' Then MessageDlg('Du hast keine Höhe eingegeben', mtError, [mbOK], 0)
  Else If ((Edit10.text<>'Breite') and  (Edit11.text<>'Höhe')) Then Begin
  Width:= StrToInt(Edit10.text) + GetSystemMetrics(SM_CXSIZEFRAME);
  Height:= StrToInt(Edit11.text)+ GetSystemMetrics(SM_CYSIZEFRAME);
  HWND := FindWindow(nil, PChar(Edit1.Text));
  SetWindowPos(HWND,HWND_NOTOPMOST,0,0,Width,Height,SWP_NOMOVE);
  end;
  try
      List.Add(Edit10.Text);
      List.Add(Edit11.Text);
      List.Add(Edit1.Text);
      List.SaveToFile('C:\Program Files\Premaider\Multifunktionstool\InhaltGröße.txt');
   finally
     List.Free;
   end;
end;

1280x720 eigegeben. 1272x690 Pixel herrausbekommen