| ma ktos klucz ?
| lub pelna wersje ?
| do gry "Kulki" w wersji shareware ?
|  www.marbit.com.pl/kulki.htm
| dzieki z gory.

Name: pwaity/AAOCG/
Kod: 2231748767


Coś z tym kodem jest nie tak :(

PiotrB

No pewnie,ze jest nie tak - to jest kod do wersji 1.7 - sciagnij sobie ta
wersje,to ruszy !!

| | ma ktos klucz ?
| lub pelna wersje ?
| do gry "Kulki" w wersji shareware ?
|  www.marbit.com.pl/kulki.htm
| dzieki z gory.

| Name: pwaity/AAOCG/
| Kod: 2231748767

Coś z tym kodem jest nie tak :(

PiotrB

ma ktos klucz ?
lub pelna wersje ?
do gry "Kulki" w wersji shareware ?
 www.marbit.com.pl/kulki.htm
dzieki z gory.


Name: pwaity/AAOCG/
Kod: 2231748767

z faq grupy wyciagnalem dwie funkcje. pierwsza sluzaca do tworzenia listy
otwartych okien, a druga do ubijania procesu. aha, system to win98se, a
srodowisko to delphi5. no i troche je przerobilem (kod ponizej), aby
robily to, co chce, ale tak sie nie dzieje. tak wiec moje pytanie brzmi:
dlaczego???

----8<----

function EnumWindowsProc(WHandle: HWND; LParM: LParam):
Boolean;StdCall;Export;
var Title,ClassName:array[0..128] of char;
    sTitle,sClass,linia:STRING;
begin
 Result:=True;
 GetWindowText(wHandle, Title,128);
 GetClassName(wHandle, ClassName,128);
 sTitle:=Title;
 sClass:=ClassName;
 if IsWindowVisible(wHandle) then
 begin
//  Linia:=sTitle; //+'        '+sClass+'       '+IntToHex(wHandle,4);
//  Form1.Listbox1.Items.Add(Linia);
  if sTitle='"MarBit" - Super Kulki V1.1' then
   begin
    killproc(sTitle);
    halt; // <- po usunieciu tej linijki i tak proces sie nie killuje :(((
   end;
 end;
end;

function  KillProc(const ClassName:AnsiString):Boolean;
var
  hWnd,hProc:THandle;
  pid:DWORD;
begin
  Result:=False;
  hWnd := FindWindow(PCHAR(ClassName),nil);
  if IsWindow(hWnd) then begin
    GetWindowThreadProcessId(hWnd, @pid);
    hproc := OpenProcess(PROCESS_TERMINATE, FALSE, pid);
    if hproc<0 then begin
      Result:=TerminateProcess(hProc,0);
      if Result then CloseHandle(hProc);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 EnumWindows(@EnumWindowsProc,0);
end;

----8----

moze ktos z grupowiczow mi to wyjasnic??? i jeszcze jedno pytanie: czy
rezydenta w delphi robi sie tak samo, jak w pascalu czy inaczej??? wlasnie
sprawdzilem, czy w delphi jest 'keep', a ze go nie ma, zgaduje, ze
rezydenta w delphi robi sie inaczej. tak wiec, czy moze ktos napisac
jak??? (to pytanie, i oczywiscie odpowiedz, mogloby sie znalezc w faq).

Potrzebuję kodu rejestracyjnego lub cracka do kulek wersja 1.1. Gdyby ktoś
go posiadał byłbym wdzięczny za namiary gdzie mogę go zdobyć.