[ Delphi ] Schermo

[piccaweb]

Ciao!
Come posso moficare le impostazioni del mio schermo attraverso Delphi?
Ad esempio la mia risoluzione é a 1280*1024, ma quando usano il mio computer altre persone vogliono una risoluzione inferiore!
Attraverso un eseguibile riesco a modificare tale proprietà?

Grazie

:master:

[AR64S-H]

davvero ragazzi come si fa?
:master:

[piccaweb]

Strano che nessuno lo sappia!
Ecco , ora mi spiego tutto...manca il guru della situazione !
Alka dove sei???

[AR64S-H]

forse è andato in vacanza perchè non mi risponde nemmeno sul suo forum da tre giorni.

[bDaniele]

vedo che se manca alka qui tutto si ferma...
bhè ci penso io!!!

procedure TForm1.Button1Click(Sender: TObject);
var DMode:_devicemodeA;
return : integer;
begin
DMode.dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT+DM_DISP LAYFREQUENCY;
DMode.dmPelsWidth:=800;
DMode.dmPelsHeight:=600;
DMode.dmDisplayFrequency:=75;
return := ChangeDisplaySettings(DMode,0);
end;

se return è
0 -> DISP_CHANGE_SUCCESSFUL
1 -> DISP_CHANGE_RESTART
2 -> DISP_CHANGE_BADFLAGS
3 -> DISP_CHANGE_FAILED
4 -> DISP_CHANGE_BADMODE
5 -> DISP_CHANGE_NOTUPDATED // solo per os NT


guarda nell'api ChangeDisplaySettings per gli altri parametri e procedure collegate

[bDaniele]

ps: metti la risoluzione che vuoi al posto di 800x600 :tongue:

[AR64S-H]

grazie bDaniele sei unn mito. Scusa l'ot ma non potresti rispondere anche al mio topic Glyph di un bottone che cambia(il titolo è diverso ma sicapisce qual è )

[AR64S-H]

scusa ma non mi cambia la risoluzione
scusa ma volendo acquisire da edit la risoluzione io ho messo strtofloat(edit1.text);
strtofloat(edit2.text);

ma mi dice che uno è cardinal e l'altro extended è sono incompatibili
Come devo fare?

[piccaweb]

GRazie bDaniele!!!
Sei un ottimo sostituto di Alka!!!
Promosso.....

[AR64S-H]

piccaweb ma a te funziona