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.
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
Curtir tópico
+ 0
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
http://www.latiumsoftware.com/en/delphi/00031.php
Responder
Clique aqui para fazer login e interagir na Comunidade :)