окна

← →
boris2 (2002-12-14 18:33) [0]

загрузка происходит при открытии любого окна а нодо при
открытии"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;

← →
DVM © (2002-12-17 22:13) [1]

При "открытии/создании" или при "активизации"?

Если при открытии, то так:
var hw: HWND;
begin
hw := FindWindow(nil,"Project1");
if h<>0 then
begin
....делай, что хошь...
end;
end;

← →
markers (2002-12-18 05:10) [2]

И ещё я shell пишу!
Очень надоело мучится с юзерами и пользоваться двумя разными прогами (Remote Administrator и Извините Троянец АЛБ!) для того чтоб достичь более менее хорошей функциональность! А если ещё нужна функциональность то там и ещё больше прог надо! А это не интересно! Муторно и противно! А денег как обычно нет чтоб покупать реальную хорошую прогу! Вот я и загорелся написать такую прогу! Но, траблы появились уже за долго до конкретного кода;)))))

← →
markers (2002-12-18 05:13) [3]

Извиняюсь ошибся топиком;) ;(

окна Найти похожие ветки