Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

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



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.009 c
3-96563
_Barex_
2003-01-11 22:07
2003.01.30
Ошибка Unable to Load libmysqlclient.so уже изрядно утомила.


14-96974
NATURALLY BORN PHILOSOPHER
2003-01-08 23:36
2003.01.30
Бродячие торговцы - кто они?...


1-96669
EXE
2003-01-21 15:46
2003.01.30
Подскажите пожалуйста, как выровнять текст в TStringGride...


1-96731
France
2003-01-22 13:06
2003.01.30
ListView.Selected.Index


3-96516
AM
2003-01-14 14:33
2003.01.30
Почему после сжатия базы я не могу его открыть?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский