Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.24;
Скачать: CL | DM;

Вниз

Калькулятор   Найти похожие ветки 

 
Alexei   (2001-10-09 14:30) [0]

Как вызвать калькулятор Винда?
Заранее благодарен.


 
Dimka Maslov ©   (2001-10-09 15:14) [1]

WinExec("calc.exe", SW_SHOW);


 
Alexei   (2001-10-09 15:48) [2]

Спасибо, а как получить обратно результат из калькулятора?


 
Dimka Maslov ©   (2001-10-09 16:44) [3]

Через буфер обмена.


 
Alien ©   (2001-10-09 23:30) [4]

ИХМО через буфер обмена не совсем корректно. Найди хендл окна, где находится результат, а затем GetWindowText или SendMessage c WM_GETTEXT.


 
FilOl   (2001-10-10 10:52) [5]

В RX-Lib уже все есть, что тебе нужно ! И не надо извращаться ;)


 
c102011   (2001-10-10 11:53) [6]

Следующий код запускает калькулятор для русской или английской версии
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;



Страницы: 1 вся ветка

Текущий архив: 2002.01.24;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.009 c
3-75513
Kouzmine
2001-12-18 16:27
2002.01.24
Сообщение Table is full Кто поможет?


3-75490
Mistr
2001-12-20 14:12
2002.01.24
Сервер-интервейс


3-75510
Сидоров Юрий
2001-12-21 09:18
2002.01.24
Проблемы с таблицами Paradox


3-75484
Delirium
2001-12-19 16:44
2002.01.24
RecordSet - > Paradox


1-75598
Masa
2002-01-06 23:09
2002.01.24
Помогите написать алгоритм вычисления простых чисел из множества !!!