Wyniki wyszukiwania

Witam! Zakupiłem sobie sony ericssona m600i, jednak posiada on simlocka na operatora Ery. W większości komisów wogóle nie chcieli się podjąć zdjęcia simlocka, w 3 komisach zaproponowano mi zdjęcie go w cenie 100zł :/ czyli jednak zdjęcie go z tego telefonu jest możliwe, pytanie tylko.. Jak to...

Na forum były tylko tematy z błędami np. z problemem deklaracji MsgFormat, natomiast nie znalazłem tematu, jak używać tej funkcji. Właśnie mam prośbę do Was, jak jej używać? Na oficjalnej stronie tgglite 'innosetup' jakoś dziwnie to opisali. MsgFormat2 := VarArrayCreate([0,1], varVariant)...

function screensv(Activate: boolean): boolean; var IntActive: byte; begin   if Activate then     IntActive := 1   else     IntActive := 0;   Result := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, IntActive, nil, 0); end; Mam taką funkcję włączającą wygaszacz ekranu, kiedy screensc(true); no a...

Piszę komunikator oparty o komponent TGGLite i chciałbym zrobić funkcję włączającą/wyłączającą odbieranie wiadomości zakolejkowanych (tych które nie dotarły do mnie jak byłem offline). Jak wiadomo z protokołu gg: Serwer po otrzymaniu wiadomości odsyła potwierdzenie, które przy okazji mówi nam...

var tekst:String; bagin tekst: 'Ala ma kota, { ???} kot ma AIDS';   //... <---- o tu MessageBox(0, Pchar(tekst), 'Ala', MB_OK); end; Co mam dopisać w wartości stringa 'tekst', żeby przełamać wiersz? W HTML wystarczy znacznik , a w delphi jak to mam zrobić?

Kiedy w procedurze odwołuję się do pewnej funkcji, AV trąbi o 'INFECTED' Czy jest możliwe ażeby użyć var tekst:String; [...] Delete(tekst, Pos('UFO', tekst), 3); np takiej funkcji do usuwania określonych ciągów znaków, ale nie ze stringa a bezpośrednio z kodu, daję przykład: function...

Witam Piszę sobie konika na TGGLite i mam w nim procedurę, która odsyła mi na gg zwroty komend CMD. Na gg można wysłać maksymalnie chyba ok 1600 znaków, więc zrobiłem funkcję, która ten zwrot komend z CMD (jeżeli przekracza 1600znaków) podzieli mi na części nie większe jak 1600 znaków i wyśle...

begin //...jakiś kod if {warunek} then    //... jeśli warunek zostanie spełniony, to rozpocznij pętlę begin while {warunek} do begin {instrukcja} //... jeśli pętla została zakończona, to zakończ tą procedurę end; end else  //... jeśli warunek nie został spełniony to wykonaj inną...

Mam sobie taki kod: var dupa: string; if coś tam coś tam then begin DeleteFile(dupa); end; Teraz jeżeli nie znajdzie odpowiedniej ścieżki, zwróci wartość false. Jak sprawdzić czy ta wartość false została zwrócona? próbowałem robić tak: var kasuj:integer; if coś tam coś tam then...

if copy(msgBody, 1, 4)='okno' then begin delete (okno, 1, 4); ShowMessage(MsgBody); end; Chcę aby po wpisaniu komendy "okno dupa blada", wyświetlił się komunikat o treści "dupa blada". Niestety wyświetla się komunikat "okno dupa blada". Co mam zrobić, żeby treść "okno" zostawała usuwana i...

Witam Mam takowy oto że problem, jako że zawżdy treści z wiersza poleceń importowane do delphi nie mają polskich znaków, czyt. występują krzaki. W związku z powyższym kieruję do was, drodzy koledzy jak i drogie koleżanki, zapytanie: jakie mamy kodowanie w CMD, jakie w delphi, gdzie to mogę...

Użyłem funkcji do wysyłania od klienta do serwera poleceń CMD i zwracania wyniku do klienta kod z zamkniętego tematu tutaj function SystemCMD(Cmd: string): string; var   TmpFn: string;   Tmp: Cardinal;   Buf: array[0..8191] of Char;   Hnd: THandle;   SI: TStartupInfo;   SA...

witam mam taką owo procedurkę w mym że koniu trojańskim: procedure TForm1.ggRecvMsg(Sender: TObject; MsgBody: String;   MsgFormat: array of Variant; MsgFrom: Integer); begin Memo2.Lines.Add('Wiadomosc od: ' + IntToStr(msgfrom) + ' o tresci: '+MsgBody)...

Co mam zrobić, żebym z pomocą klienta mógł wygenerować serwer? Wszystkie arty o tworzeniu trojanów opisują oddzielnie pisanie klienta i oddzielnie serwera? Mi chodzi o to, żebym mógł z pozycji klienta, wybrać sobie poszczególne opcje dla serwera i go następnie wygenerować? I jak mogę...