hallo silent,
wenn du nur die bildschirmauflösung ändern willst dann mach doch folgendes:
leg in einer form vier buttons mit der aufschrift 640x480, 800x600, 1024x768 und 1280x1024 an.
dann schreib diese funktion(über die prozeduren!):
Delphi-Quellcode:
function AnotherScreen(width, height: word): boolean;
var
lpDevMode: TDeviceMode;
begin
result := enumDislpaySettings(nil, 0, lpdevMode);
if result then
begin
lpDevMode.demfields := dm_pelswidth or dm_pelsheight;
lpDevMode.dmpelswidth := width;
lpDevMode.dmpelsheight := height;
result := changeDisplaysettings(lpdevmode, cds_updateregistry) =
disp_change_successful;
end;
end;
wenn auf den jeweiligen button gedrückt wird, wird die bildschirmauflösung geändert:
[/delphi]
procedure button1click(sender: tobject);
begin
anotherscreen(640, 480);
end;
[/delphi]
tschüss,
heiopei