| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
окна
boris2 © (2002-12-14 18:33:00)загрузка происходит при открытии любого окна а нодо при
открытии"project1"
помогите pliiz
спасибо.
var
st: array [0..128] of Char;
hw: HWND;
begin
hw := GetForegroundWindow;
GetWindowText(hw, @st, 128);
if CompareStr(string(st),"Project1")<> 0 then begin
Hdll:= LoadLibrary(PChar("bks32.dll")); { загрузка DLL }
end;
markers (2002-12-18 05:13:00) [1]Извиняюсь ошибся топиком;) ;(
markers (2002-12-18 05:10:00) [2]И ещё я shell пишу!
Очень надоело мучится с юзерами и пользоваться двумя разными прогами (Remote Administrator и Извините Троянец АЛБ!) для того чтоб достичь более менее хорошей функциональность! А если ещё нужна функциональность то там и ещё больше прог надо! А это не интересно! Муторно и противно! А денег как обычно нет чтоб покупать реальную хорошую прогу! Вот я и загорелся написать такую прогу! Но, траблы появились уже за долго до конкретного кода;)))))
DVM (2002-12-17 22:13:00) [3]При "открытии/создании" или при "активизации"?
Если при открытии, то так:
var hw: HWND;
begin
hw := FindWindow(nil,"Project1");
if h<>0 then
begin
....делай, что хошь...
end;
end;
| |
