Exe mit zu großer Auflösung

[Blackheart]

Probiers mal damit.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);  
const breite=800; // Hier Angeben in Welcher Auflösung du Programmiert hast  
  hoehe=600;  
var schrift: integer;  
begin  
  schrift := pixelsperinch-96;  
  if screen.width>breite then begin  
    if schrift>0 then  
     ScaleBy(round(((screen.width/breite)*100)-((screen.width/breite-1)*100)),100)  
    else  
     ScaleBy(round(((screen.width/breite)*100)),100);  
  end  
  else begin  
    if screen.width=breite then  
      ScaleBy(round(((screen.width/breite)*100)-schrift),100)  
    else begin  
      if schrift>0 then  
       ScaleBy(round((100-(breite/screen.width-1)*100)-(breite/screen.width-1)*100),100)  
      else  
       ScaleBy(round((100-(breite/screen.width-1)*100)),100);  
    end;  
  end;  
end;