Hi...,
also zum Verändern der Bldschirmauflösung hab ich folgendes gefunden:
(EasyHelper):
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
const breite=800; {Auflösung, unter der das Fenster erstellt wurde}
hoehe=600;
var schrift: integer;
begin
schrift := pixelsperinch-96;
if screen.width>breite then begin
if schrift>0 then
{für große Schriften}
ScaleBy(round(((screen.width/breite)*100)-((screen.width/breite-1)*100)),100)
else
{für kleine Schriften}
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
{für große Schriften}
ScaleBy(round((100-(breite/screen.width-1)*100)-(breite/screen.width-1)*100),100)
else
{für kleine Schriften}
ScaleBy(round((100-(breite/screen.width-1)*100)),100);
end;
end;
end;
Ähm..., und den Desktop spiegeln..., hm...
da hab ich keine Ahnung!
Willst du dir ein Scherzprogramm machen, oder was?
Also dann, viel Spass...
Greetz by Hux
