Wątek zablokowany 2017-09-25 21:53 przez furious programming.

[Delphi] Brak mozliwosci zamkniecia programu

0

No wiec chce uzyskac taki efekt jak ma np NAV. Probowal go ktos kiedys zamknac ale tak na sile, ja probowalem i powaznie nie wiem jak mozna zamknac takie cudo :-) Probowalem nawet pod win2k (tam pokazuja sie wszystkie procesy i tez sie nie dalo). No i ja chcialbym uzyskac taki efekt :-) Ale Od razu zaznaczam ze CanClose := False nie wchodzi w gre, bo to nie dziala. Moze trzeba dodac do jakiejs listy w win albo jeszcze co innego.

--
pozdrawiam PEDROS {hello}

Szukasz pomocy - najszybsza na ircu
#4programmers.net

Delphi6 Personal

0

To jest niemożliew co piszesz że nie da się zamknąć nortona. Ja od niechcenia po prostu daje ALT+CTRL+DEL i zamykam go (XP), a na starszych winach też go zamykałem (np. CCTASK). Spróbuj ten kod:
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;

FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);

while integer(ContinueLoop) 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,
FProcessEntry32);
end;

CloseHandle(FSnapshotHandle);
end;--Delphi 6
Pozdrowienia{hello} ,
Moderator Imperior

Apeluję o pisanie na początku tematu znacznika jakiego języka dotyczy post
np. [delphi], , [c++], [ot]

0

Imperior chyba mnie troche nie zrozumiales ;) Ja nie chce nic zamykac tylko to mial byc przykald ze chce cos takiego jak jest w NAV . I ta funkcja tez nie potrafi zamknac NAV. Ja tez chce zrobic cos takiego ze moj program bedzie niezamykalny :-)--pozdrawiam PEDROS {hello}

Szukasz pomocy - najszybsza na ircu
#4programmers.net

Delphi6 Personal

0

Pedros zamiast canclose false ustaw na true :)

0

ZIOMBER niegdy nie wiem czy TRUE pozwala zamkna czy nie zawsze wybieram to metoda prob i bledow :-) Ale nawet jak zmienisz CanClose na True to i tak bedziesz mogl zamknac poprzez np ta funkcje ktora podal Imperior a ja chce zrobic aby program byl niedozamkniecia :-)--pozdrawiam PEDROS {hello}

Szukasz pomocy - najszybsza na ircu
#4programmers.net

Delphi6 Personal

0

aaaaaaa sorrrrrry moj blad :)

0

Może niech twój program otworzy jeszcze jeden program(ale tak aby nie byłogo widać na pasku zadeń też) i niech one sie wzajemnie sprawdzają jeśli jeden zgaśnie to drugi go odpali ponownie.

0

To chyba bedzie najlepsze jak na ten monet rozwiazanie :-) A co do niemoznosci zamykania NAV to sie okazalo ze da sie go zamknac :-) tylko ze ja zamykalem nie to co potrzebabylo :-)--pozdrawiam PEDROS {hello}

Szukasz pomocy - najszybsza na ircu
#4programmers.net

Delphi6 Personal

0

Wiesz jak zrób? W onClose i OnDestroy daj WinExec(ParamStr[0]); czy jakos tak zeby sie sam uruchomil przy zamykaniu--Delphi 6
Pozdrowienia{hello} ,
Moderator Imperior

Apeluję o pisanie na początku tematu znacznika jakiego języka dotyczy post
np. [delphi], , [c++], [ot]

0

Imperior to jest jeszcze lepszy pomysł :-)--pozdrawiam PEDROS {hello}

Szukasz pomocy - najszybsza na ircu
#4programmers.net

Delphi6 Personal

1 użytkowników online, w tym zalogowanych: 0, gości: 1