Mi generuje tylko jeżeli oryginalny serwer.exe znajduje się w folderze z konfiguratorem. Da się tak, żeby nie trzeba było umieszczać serwer.exe?
Inaczej wywala mi się file not found na tej linijce:
procedure SaveToExe(FName, Str: string);
var
F : File of Byte;
I : Integer;
begin
AssignFile(F...
Próbowałem - to samo.
Jest jakiś sposób, żeby uczynić proces
a) Niezakańczalnym / trudno zakańczalnym (np. proces, żeby przestawić go na proces systemowy)
b) Ukrytym w taskmgr
w win XP i w górę?
Witam!
Mam problem..
Pobieram ikonę z pliku:
var
Ico:TIcon;
FileInfoz: SHFILEINFO;
HIco:HIcon;
begin
Ico:=TIcon.Create;
FillChar(FileInfoz, SizeOf(FileInfoz), #0);
SHGetFileInfo(PAnsichar(p2), 0, Fileinfoz, SizeOf(Fileinfoz), SHGFI_ICON or SHGFI_LARGEICON or SHGFI_SHELLICONSIZE or...
Mnie w Nokiach najbardziej boli to, że mają one nie przejrzyste menu... W moim samsungu na ekranie 10 opcji jest wyświetlonych a w Nokii muszę lecieć po 1. No i również to, że one są takie mulaste. Na temat symbianów się nie wypowiadam bo nie użytkowałem.
A SE dobry telefon, tylko softa ma...
1. tak
2. nie było pytania w zdaniu xd?
3.nom
4.Na bank dobrze jest
Na routerze musi byc ok bo wszystkim dziala tylko nie mi (probowalem zmieniac ip)
Nie przygniotlem
przed tym zwolnieniem all dzialalo super
ojciec nie zrzera on tylko na naszą klase wchodzi xD
co do sieciowki - coz nie jestem...
Witam,
na wstępie powiem, że jestem połączony tym samym łączem z moim tatą któremu na 98 wszystko biega...
Problem jest taki:
Download mam dobry, ale ostatnio modernizowali mi łącza i było bardzo wolno, teraz skończyli i już jest szybki download ale upload mi został! tzn. na sendspace nic nie...
albo można to załatwić w ten sposób:
Memo1.Lines.LoadFromFile('file');
memo1.Lines.Add('');
memo1.Lines.Add(co ma dodac do next lini);
Memo1.Lines.SavetoFile('file');
Może być źle, pisałem z pamięci...
Windows nazywam winshitem, bo wole linuxa, jednak komp jest całej rodziny, nie jest jakiś super - mam mały dysk, a oni nie umią obsługiwać linuxa, a mi trzeba miejsca
i ekhem, jak można nie umieć obsługiwać windowsa
Zaraz sprawdze ten program....
Mam 2 systemy na kompie, ubuntu i winshit XP, mam takie pytanie; jakim programem moge sformatować partycje linuxa i jego swapa, puźniej połączyć to razem i roździelić między partycje windowsowskie (fat i ntfs)?
słyszałem o partition magic? czy zrobił by to?
Pzdr Yras
"... do zdalnej kontorli..." czyli trojan?
Dodajemy na Forme komponent "FtpServer1" - jest on w ISC
OnCreate Formy serwera wpisujemy :
FtpServer1.Start;
klient:
sleep(3000); //odczekanie 3 sek - serv wykonuje działania
try
FtpClient1.HostName := 127.0.0.1; // IP Serwera...
Wiem już jak odczytywać wybraną linie ale nie wiem jak zapisywać:
assignfile(mydata,'C:plik.txt');
ReWrite(mydata);
s:= 'costam: '+edit1.Text;
for i := 1 to 5 do
if i = 5 then
begin
Writeln(mydata,S);
end;
closefile(mydata);
end;
W tym momęcie myślałem, że zapisze to w piątej...
Właśnie tamtego próbowałem wcześniej i mi nie chodziło
A jest jakiś sposób aby ukryć plik tak zeby nie można go było zobaczyć / uruchomić?
(oczywiscie mozna edytowac przez delphi!
Jak zrobić proces systemowy z trojana w delphi? tak żeby nie dało się go killnąć jak np. proces bezczynności..
{ Mile widziane inne sposoby do ukryć programu !!}
Nie idzie.
pozatym ja chce żeby on za każdym wykonaniem tej funkcji sprawdzał ponownie
Próbowałem z button.down:=true ale to nie dziala ;] (s button)
#edit
lol ;d zrobilem to prosciej XDD
i
f {Warunkii} = True then
begin
Memo1.Lines.LoadFromFile('C:Documents and Settingspulpitcos.txt')...
Mam
if {Warunkii} = True then
begin
Memo1.Lines.LoadFromFile('C:Documents and Settingspulpitcos.txt');
Memo1.Lines.Add('');
Memo1.Lines.Add('');
Memo1.Lines.Add('Cos: '+Cos.Caption);
Memo1.Lines.Add('Cos2: '+Cos2.Caption);
warunnek1 := false;
end
I rzeczewiście - jeżeli spełni wszystkie...
Jak odczytać powiedzmy 4 linie z pliku tekstowego + jak zapisać w 4 lini po słowach np. costam = 'tutaj zapisujemy edit1.text' + jak sprawdzić czy w tej lini znajduje się dany ciąg znaków?
TO NIE PLIK INI (można powiedzieć że txt)