Help to teapot

← →
Baks © (2004-06-04 09:54) [0]

Помогите "чайнику"!!!
У мя в проге при нажатиии кнопки запускается калькулятор...
Как сделать так что-бы вторая копия программы не запускалась....Или из главной формы возвращалась бы на калькулятор....

← →
Anatoly Podgoretsky © (2004-06-04 10:12) [1]

У тя? А програмя ча?

← →
Polevi © (2004-06-04 10:13) [2]

у него не програмя а прога, почувствуйте разницу

← →
Паниковский © (2004-06-04 10:21) [3]

Baks
findWindow посмтри в хелпе там все есть!

← →
Anatoly Podgoretsky © (2004-06-04 10:27) [4]

Polevi © (04.06.04 10:13) [2]
И как эе это я так опростоволосился

← →
Baks © (2004-06-04 10:30) [5]

Да тока не надо смеяться.... Вот я же признаюсь что "чайник" в программировании,

← →
Polevi © (2004-06-04 10:32) [6]

а ты думаешь "чайник" волшебное слово чтоли ?
типа трахтибидохтибидох ?

Polevi а кто те это говорил? Или ты догадался?

Помочь можно, вот хелпный пример, требуется доработка.
не на закрытие, а на что надо
(ну не все же форумцам за тя делать :))

{$R *.DFM}
Const
ReclamaName : String = "Принтеры" ; // строка, по которой мы узнаем, что это - реклама.
TimeInterval : Integer = 500; // Интервал, с которым будем проверять наличие окон
{Для того чтобы использовать данный пример необходимо наличие таймера Timer1.}
// Любимая наша процедура

function EnumCloseProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; // Обязательно stdcall !!!
Var
Nm:Array[0..255] of Char; // буфер для имени
zName:String;
Begin
GetWindowText(Wd,Nm,255); // считываем текст заголовка окна
ZName:=AnsiUpperCase(String(Nm)); // преобразуем к верхнему регистру т.е РЕКЛАМА
If Pos(ReclamaName,zName)<>0 then SendMessage(WD,WM_SYSCOMMAND,SC_CLOSE,0);
EnumCloseProc := TRUE; // продолжаем перебирать все окна системы.
end;

procedure Tform1.Timer1Timer(Sender: TObject); // будем проверять по таймеру…
begin
Timer1.Interval:= TimeInterval; // установим время до следующего вызова
EnumWindows (@EnumCloseProc, 0); // отрабатываем закрытие окон.
end;

Help to teapot Найти похожие ветки