Imagens, Sons, Calculadora, Desligar Windows

08/12/2003

1

Galera, quero saber 4 coisas, relacionadas a funções do Delphi:

1) Como Fazer para chamar a Calculadora do Windows (98 e XP) através de comando?
2) Como fazer para desligar o XP, através de Procedure?
3) Como fazer para rodar sons .mp3 e .wma?
4) Como fazer aparecer imagens de extensão .jpg? Imagens .bmp aparecem sem problema, mas jpg eu não consegui.

Veleu!

Diórgenes Tavares


Responder

Posts

09/12/2003

Maxsoftware

//função para desligar qualquer Windows
//por Luiz Fernando Severnini

function ShutDownWindows(Opcao: Byte):Boolean;
var
hToken : THandle;
pPrivileges : TTokenPrivileges;
pOldPrivileges: TTokenPrivileges;
Zero: DWord;
ptZero: DWord;
tResult: Boolean;
begin
//Checa a versão do Windows
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
tResult := OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
if tResult then
tResult := LookupPrivilegeValue(nil, ´SeShutdownPrivilege´, pPrivileges.Privileges[0].Luid);

pPrivileges.PrivilegeCount := 1;
pPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
Zero := 0;
ptZero := SizeOf(pOldPrivileges);
if tResult then
Windows.AdjustTokenPrivileges(hToken,
False,
pPrivileges,
ptZero,
pOldPrivileges,
Zero);
end;
case Opcao of
//Desliga
//SHUTDOWN
0: begin
Result := ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE, 0);
end;
//Reinicia
//REBOOT
1: begin
Result := ExitWindowsEx(EWX_REBOOT or EWX_FORCE, 0);
end;
//LogOff do usuário atual
//LOGOFF
2: begin
Result := ExitWindowsEx(EWX_LOGOFF or EWX_FORCE, 0);
end;
//Desliga, mas o sistema precisa ter o recurso de Power-Off
//POWER OFF
3: begin
Result := ExitWindowsEx(EWX_POWEROFF or EWX_FORCE, 0);
end;
else begin
Result := False;
Exit;
end;
end;
end;

Parâmetros

0 - SHUTDOWN
1 - RESTART
2 - LOGOFF
3 - POWER OFF


Responder

09/12/2003

Maicongabriel

//função para desligar qualquer Windows //por Luiz Fernando Severnini


Eu postei essa função a uns topicos atrás, mas mesmo tendo adaptado-a nem por isso eu me intitulei autor dela... [url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=29649[/url].

[b:37f02ae366]Diórgenes[/b:37f02ae366]

1) Como Fazer para chamar a Calculadora do Windows (98 e XP) através de comando? 4) Como fazer aparecer imagens de extensão .jpg? Imagens .bmp aparecem sem problema, mas jpg eu não consegui.


1- Adicione [b:37f02ae366]ShellApi[/b:37f02ae366] na Uses
ShellExecute(0, nil, ´Calc.exe´ ,nil, nil, SW_SHOWNORMAL);

4- Adicione [b:37f02ae366]Jpeg[/b:37f02ae366] na Uses


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira