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

← →
omega33 (2002-12-14 04:24) [0]

привет.
помогите перевести 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; //прерываем процесс

← →
Rouse_ © (2002-12-14 04:46) [1]

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;

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

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

← →
Rouse_ © (2002-12-14 04:50) [2]

if ll = sl then Exit; Конечно же :)) Вот правда реализация процедуры странная :) Оччень странная

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

← →
Rouse_ © (2002-12-14 05:06) [3]

Короче

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;

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

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

← →
omega33 (2002-12-14 17:22) [4]

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

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

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