Форум: "Потрепаться";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];
Вниз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]а ты думаешь "чайник" волшебное слово чтоли ?
типа трахтибидохтибидох ?
← →
Baks © (2004-06-04 10:48) [7]Polevi а кто те это говорил? Или ты догадался?
← →
Леприкон © (2004-06-04 10:49) [8]
> Polevi © (04.06.04 10:32) [6]
Тут просили не смеяться, но я не сдержался. Смеялся долго. :))))
← →
Vlad Oshin © (2004-06-04 10:55) [9]Помочь можно, вот хелпный пример, требуется доработка.
не на закрытие, а на что надо
(ну не все же форумцам за тя делать :))
{$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;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.027 c