Undeclaref identifier: SetScreenResolution

11/07/2004

0

Olá a Todos !!!

Estou com o seguinte código :

************************
function TDMprinc.MudarResolucao(aWidth, aHeight : Integer) : Integer;
var
aMsg : PChar;
begin
Result := 0;
If (Screen.Width <> aWidth)and(Screen.Height <> aHeight) then
begin
aMsg := PChar(´Este programa foi desenvolvido em ´ + IntToStr(aWidth) + ´ X ´ + IntToStr(aHeight) + ´. Ele vai rodar normalmente nas suas confirações, mas não vai ficar posicionado corretamete em seu monitor! Deseja Alterar suas confirações de vídeo agora ?´);
Result := Application.MessageBox(aMsg, ´Resolução do Sistema´, mb_YesNo + mb_IconQuestion);
if (result = 6) then
begin
OldWidth := GetSystemMetrics(SM_CXSCREEN); OldHeight := GetSystemMetrics(SM_CYSCREEN);
SetScreenResolution(aWidth, aHeight);
Application.Terminate;
end;
end;
end;
*************************************************************
O problema eh o seguinte, quando eu tento Compilar dah o seguinte erro :
´Undeclaref identifier: SetScreenResolution´

Alguém sabe o Nome da USES q eu preciso declarar ??

Agradeço.


Christian_adriano

Christian_adriano

Responder

Posts

11/07/2004

Tatuweb

A função SetScreenResolution não existe em nenhuma versão do Delphi. Se você quer alterar a resolução do vídeo dá uma olha no link abaixo:

http://www.latiumsoftware.com/en/delphi/00031.php


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar