Форум: "Система";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
ВнизКалькулятор Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c