Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

перевести на delphi

omega33 © (2002-12-14 04:24:00)
привет.
помогите перевести pliiz.

HINSTAGE hINSTAGE;
while (1)
//Запускаем цикл.
int sl,ll;
ll=1;
sl=2;
//переменные для счетчика.
char st[128];
HWND hw;
//Идем самым простым путем - сравниваем посимвольно строки.
while (ll!=sl)
hw=GetForegroundWindow();
GetWindowText(hw,st,128);// читаем активное на данный момент окно.
char stt[128]="_Здесь пишем заголвок нужного нам окна_№1";
sl=strlen(stt);
ll=0;
while (stt[ll]==st[ll])
ll++;
if (ll==sl) {//если строки совпадают до конца 1-ой строки -
halt; //прерываем процесс

omega33 (2002-12-14 17:22:00) [1]

почему загужается при любом окне?

if CompareStr(string(st),"Project1")<> 0 then begin
Hdll:= LoadLibrary(PChar("bks32.dll")); { загрузка DLL }

Rouse_ (2002-12-14 05:06:00) [2]
Короче

procedure SomeProc;
var
st: array [0..127] of Char;
hw: HWND;
begin
hw := GetForegroundWindow;
GetWindowText(hw, @st, 128);
if CompareStr(String(st),"_Здесь пишем заголовок нужного нам окна_№1") <> 0 then begin
//Кажись не то приложение активно, надо чето делать :))
и дальше твой супер код реализующий дальнейшую задумку
end;
end;

Вот так оно правильней будет, а не то что было :))

Желаю успехов

Rouse_ (2002-12-14 04:50:00) [3]
if ll = sl then Exit; Конечно же :)) Вот правда реализация процедуры странная :) Оччень странная

Желаю успехов

Rouse_ (2002-12-14 04:46:00) [4]
procedure SomeProc;
var
sl, ll: Integer;
st: array [0..127] of Char;
stt: String;
hw: HWND;
begin
while True do begin
ll := 1;
sl := 2;
while not ll = sl do begin
hw := GetForegroundWindow;
GetWindowText(hw, @st, 128);
stt := "_Здесь пишем заголовок нужного нам окна_№1;
sl := Length(String(st));
ll := 0;
while stt[ll] = st[ll] do begin
inc(ll);
if ll = sl then Halt;
end;
end;
end;

end;

Вроде так, голова уже туго соображает :))

Желаю успехов

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »