Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Калькулятор [D3, Win95/98]

Alexei © (2001-10-09 14:30:00)
Как вызвать калькулятор Винда?
Заранее благодарен.

c102011 (2001-10-10 11:53:00) [1]
Следующий код запускает калькулятор для русской или английской версии
Windows, или выводит на экран уже запущенный калькулятор без запуска
второй копии калькулятора.

var
frmFormName: TfrmFormName;
Calcul:HWND;//дескриптор окна калькулятора

implementation

//--------------------------------------------------
procedure TFormName.btnCalcClick(Sender: TObject);
begin
IF FindWindow(nil,"Калькулятор")<>0 Then
Calcul:=FindWindow(nil,"Калькулятор")
ELSE
IF FindWindow(nil,"Calculator")<>0 Then
Calcul:=FindWindow(nil,"Calculator")
ELSE
Calcul:=0;

IF Calcul=0 Then
ShellExecute(handle, "open","Calc", nil, nil, SW_RESTORE)
ELSE
begin
ShowWindow(Calcul, SW_restore);
SetForegroundWindow(Calcul);
end;
end;

FilOl (2001-10-10 10:52:00) [2]
В RX-Lib уже все есть, что тебе нужно ! И не надо извращаться ;)

Alien (2001-10-09 23:30:00) [3]
ИХМО через буфер обмена не совсем корректно. Найди хендл окна, где находится результат, а затем GetWindowText или SendMessage c WM_GETTEXT.

Dimka Maslov (2001-10-09 16:44:00) [4]
Через буфер обмена.

Alexei (2001-10-09 15:48:00) [5]
Спасибо, а как получить обратно результат из калькулятора?

Dimka Maslov (2001-10-09 15:14:00) [6]
WinExec("calc.exe", SW_SHOW);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »