Fórum Não consigo baixar o DelphiBoy #184730
28/09/2003
0
Não estou conseguindo baixar atravez da inter o DelphiBoy. Nem mesmo pelo site oficial. Alguem sabe onde posso baixar ???
Na verdade eu estou precisando de uma funcao que retorne a resolucao de video do windows no momento, ou seja, se e´ 800x600 ou 640x480.
Diante mao ja´ agradeco as ajudas...
Na verdade eu estou precisando de uma funcao que retorne a resolucao de video do windows no momento, ou seja, se e´ 800x600 ou 640x480.
Diante mao ja´ agradeco as ajudas...
Adonis
Curtir tópico
+ 0
Responder
Posts
28/09/2003
Eguinaldo
function FullScreeSize: String;
var
Area : TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @Area, 0);
Result := ´(´+IntToStr(Area.Left)+´,´+
IntToStr(Area.Top)+´)-(´+IntToStr(Area.Bottom)+
´,´+IntToStr(Area.Right)+´)´;
end;
:wink:
var
Area : TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @Area, 0);
Result := ´(´+IntToStr(Area.Left)+´,´+
IntToStr(Area.Top)+´)-(´+IntToStr(Area.Bottom)+
´,´+IntToStr(Area.Right)+´)´;
end;
:wink:
Responder
Gostei + 0
28/09/2003
Mmtoor
prezado amigo:
tem dois exemplos bons, e com fontes, em http://www.cjs.com.br
MMTOOR2003
tem dois exemplos bons, e com fontes, em http://www.cjs.com.br
MMTOOR2003
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)