Esse é o jeito que eu chamo a calculadora:
procedure TFormPrincipal.Image6Click(Sender: TObject);
var
WinDir: array [0..MAX_PATH-1] of char;
Result: string;
PlatformId, CSDVersion: String;
begin
CSDVersion := '';
case Win32Platform of VER_PLATFORM_WIN32_WINDOWS:
begin
if Win32MajorVersion = 4 then
case Win32MinorVersion of
0: PlatformId := '9x';
10: PlatformId := '9x';
90: PlatformId := 'ME';
end
else PlatformId := '9x';
end;
VER_PLATFORM_WIN32_NT:
begin
if Length(Win32CSDVersion) > 0 then CSDVersion := Win32CSDVersion;
if Win32MajorVersion <= 4 then
PlatformId := 'NT'
else
if Win32MajorVersion = 5 then
case Win32MinorVersion of
0: PlatformId := '2000';
1: PlatformId := 'XP';
2: PlatformId := '2003';
else
PlatformId := '?';
end
else
PlatformId := '?';
end;
end;
SetString(Result, WinDir, GetWindowsDirectory(WinDir, MAX_PATH));
if PlatformId = '9x' then begin
Result := Result + '\calc.exe';
end
else if PlatFormId = 'XP' then begin
Result := Result + '\system32\calc.exe';
end;
ShellExecute(Application.Handle, 'open', PChar(Result), nil, nil, SW_SHOWNORMAL);
end;
[]s
Vinicius
----- Original Message -----
From: infomark_miguel
To: [EMAIL PROTECTED]
Sent: Wednesday, October 27, 2004 1:51 PM
Subject: Re: [delphi-br] Chamar Calculadora do Windows
É só chamar
winexec('calc.exe',1)
que funciona para qualquer caso.
___________________________________________________
Miguel Franco Galego
I n f o m a r k S o l u ç õ e s
[EMAIL PROTECTED]
icq 332006521
___________________________________________________
----- Original Message -----
From: Eduardo Silva ®
To: [EMAIL PROTECTED]
Sent: Wednesday, October 27, 2004 11:59 AM
Subject: RES: [delphi-br] Chamar Calculadora do Windows
Se win98
winexec('c:\windows\calc.exe',AW_CENTER);
Se win NT, 2000 ou XP
winexec('c:\winnt\system32\calc.exe',AW_CENTER);
-----Mensagem original-----
De: Erika [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 27 de outubro de 2004 10:46
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Chamar Calculadora do Windows
Como eu faço para quando clicar em um botão, chamar a calculadora do
Windows?
Obrigado
[]'s
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
------------------------------------------------------------------------------
Incoming mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.269 / Virus Database: 264.12.3 - Release Date: 25/10/04
----------
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.269 / Virus Database: 264.12.3 - Release Date: 25/10/04
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
