Jak macie problem z delphi to tutaj ->

[djmentos]

<div class='quotetop'>CYTAT(m-a-t-e-u-s-z @ 30.04.2008, 15:45) <{POST_SNAPBACK}></div>

ależ nie, on taki musi byc...[/b]

dziwne. Może jakiś trafiony ServerSocket? xD

 

[m-a-t-e-u-s-z]

<div class='quotetop'>CYTAT(djmentos @ 30.04.2008, 14:59) <{POST_SNAPBACK}></div>

dziwne. Może jakiś trafiony ServerSocket? xD[/b]

jak chcesz to looknij tu http://www.haker.com.pl/Kurs-Pisania-Troja...ayd-t14371.html, z tego korzystam(ucze sie dopiero), a jak cos jest nie tak w tym tutku to powiedz mi w co powinienem wkleic kod??

 

[EvilHaker102]

Sciagnij se cracka z http://shell666.w.inetria.pl i dalsze instrukcje masz w pliku 107reg.txt

Taka stronka istnieje ?? ?? ?? klikam na nia i wyskakuje ze nie ma takiej stronki[/b]

Przecież chodzi o lierówkę

Interia nie inetria.

 

[Legalnl]

siemkanko, mysle ze nie bede zasmiecał forum osobnym tematem to wpisze tutaj xD

otoz w delphi jest klasa TFileStream, i teraz chciałbym wykonac na niej operacje taką jak ta:

memo.lines.add('bla');

a tego w TFileStream nie ma

jest jakis inny sposob by dopisac to tej klasy nową linie cos w stylu memo.lines.add ??

Pozdrawiam

 

[kastrant]

witam
przeczytalem z 10 poradnikow o delphi 7...
i caly czas nurtuje mnie jeden problem

"Do Formy należy dodać komponent ListBox. Pierwsza kolumna to ProcessId, a druga to nazwa pliku "

nie mam pojecia jak do formy dodac jakis komponent ;/
i skad sciagnac te komponenty
szukalem poradnikow i nic nie znalazlem
moze mi ktos jakos pomoc ?

np
Na forme wrzucamy komponenty:

-Edit x2

i skad to wziac i jak wrzucic ;/

czyli podsumowujac szukam poradnika/pomocy jak wrzucic komponent na forme i skad sciagnac dany komponent

 

[Legalnl]

na gorze w dlephi masz pasek, i tam sa wlasnie komponenty, są tam zakladi typu standard, additional, system, win32 itd. to sa kategorie komponentow. sA posegregowane według kategorii.

Klikasz 2 razy na element (po najechaniu na ikonke pisze jaki to komponent) i pojawia sie na formie. mozesz tez kliknąc w menu DELPHI:

View -> Component list, potem wpisujesz literkę "T" a następnie nazwe komponentu, np Tedit i masz

 

[Gobe]

Postanowiłem zrobić sobie program który by działał w ten sposób gdy w pole Edit wpiszemy np. firefox to uruchomi nam sie firefox gdzy notatnik to notepad..

I zrobiłem coś takiego próbowałem różnych rzeczy i mi ciągle błędy wyskakują...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = 'mozilla'
then
ShellExecute(Handle, 'open', 'C:\Program Files (x86)\Mozilla Firefox\firefox.exe', nil, nil, SW_SHOW);
begin
if Edit1.Text = 'notatnik'
then
ShellExecute(Handle, 'open', 'notepad.exe', nil, nil, SW_SHOW)
end;
end.

i wyskakuje błąd w ostatniej linijce "end." Nie umiem sobie z tym poradzić, proszę o pomoc

 

[Khalt]

Zjadłeś średnik w linijce przed "end".

EDIT1: I tak patrze na ten kod i coś mi w nim nie pasuje. Pisałeś wcześniej jakąś aplikację w Delphi ...?

EDIT2: Pewnie, że mi coś nie pasowało:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = 'mozilla'
then
ShellExecute(Handle, 'open', 'C:\Program Files (x86)\Mozilla Firefox\firefox.exe', nil, nil, SW_SHOW)
else if Edit1.Text = 'notatnik'
then
ShellExecute(Handle, 'open', 'notepad.exe', nil, nil, SW_SHOW);
end;

 

[Gobe]

A no faktycznie, zamiast else dałem begin... xd
wielkie dzięki za wskazanie będu.
Nie wiedziałem jak robi się to if dla 2 operacji i dlatego tak zrobilem.
Na przeszłość będe wiedział
Thx

 

[Gobe]

Mam kolejny problem, nigdzie nie potrafiłem odszukać polecenia aby:

Gdy przykładowo, w pole Edit wpiszę: [email protected] czyli jaki adres który będzie zawierał @wp.pl
to jeśli w pole zostało wpisane: @wp.pl
to: ShowMessage('To jest poczta wp.pl')

a jeśli w tekście zostanie zawarte @interia.pl
to: ShowMessage('To jest poczta interia.pl')
i tak dalej...

Te wszystkie funkcje If, then else mniej-więcej ogarniam ale nie wiem jak zrobić, jeżeli wpisane tekst zawiera...

 

[kanar123]

poczytaj o "pos" i "po***" do tego "copy"

 

[djmentos]

p_o_s_e_x bez podkreslników, chyba cenzura jest troche nadgorliwa...

 

[Gobe]

No z Po*** już coś kapuje, thx ;]

Dalej pracuję nad czymś takim, zaczytuje juz maile ale potem sie zawiesza..;]
No nie wiem

implementation
function Po***(SubStr, Str: string; PosStart: Integer): Integer;
begin
  if Pos(SubStr, copy(Str, PosStart, Length(Str)-PosStart+1))=0 then Result:=0
  else Result:=Pos(SubStr, copy(Str, PosStart, Length(Str)-PosStart+1))+PosStart-1;
  end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('m.txt');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  PoMalpie, Mail, Tekst: String;
  I: Integer;
begin
  Tekst:= Memo1.Lines.Text;

  while pos('@', Tekst)<>0 do
  begin
    PoMalpie:= Copy( Tekst, pos('@', Tekst)+1, po***(' ', tekst, pos('@', Tekst))-pos('@', Tekst)-1 );
    Mail:= PoMalpie;
ShowMessage(Mail);
  end;

end;

end.

Chce uzyskać efekt, że po wczytaniu z pliku adresów e-mail wyświetlą mi się w Memo1, a następnie po nacisnięciu button2 jeśli się wczytały takie maile:
[email protected] [email protected]
to otworzą mi się 2 strony: wp.pl i interia.pl w nowych oknach.

Jest to w ogóle możliwe ??

1.Wczytuję listę mailów
2.Program wyszukuje adresy po "@" i je otwiera.
3.Program na stronie np. https://profil.wp.pl/haslo.html
wkleja adres z przed @ i przechodzi dalel

 

[Legalnl]

PO pierwsze nie wczytuj maili do memo tylko to listboxa bedize to lepsze.

potem robisz pętle i przeszukujesz.

repeat
if pos('[email protected]'   ,      listbox1.items.strings[x])   > 0 then ShellExecute(Handle, 'open', 'mojmail1   @wp.pl', nil, nil, SW_SHOW);
if(pos('[email protected]'   ,   listbox1.items.strings[x]) > 0) then ShellExecute(Handle, 'open', '[email protected]', nil, nil, SW_SHOW);
inc(x);
until x = listbox1.count -1;

oczywiście to najprostszy sposób , wyciągnij wnioski i dostosuj do potrzeb ;p

 

[yras]

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
             SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_DISPLAYNAME);
 Ico.Handle :=  Copyicon(Fileinfoz.hIcon);
               Form1.Image1.Picture.Icon := Ico;
 Form1.Image1.Picture.Icon.SaveToFile('c:\icon.ico');

I na Image1 jest ona wyświetlana prawidłowo - w dobrych kolorach etc. A gdy program zapiszę ją na dysku wygląda ona tak:

Jest ktoś w stanie mi pomóc?

 

[Legalnl]

zapisz ją bezposrednio z ICO, bez wczytywania jej do timage

 

[yras]

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ę?

 

[marc00]

Cześć. Mam pytanie:
załóżmy, że mam program A i program B. Program A ma pokazywać obraz z kamerki, a program B przechwytywać i wysyłać do programu A.
Chcialem to zrobić na tsCap32, ale nie wiem jak przesłać z niego obraz do drugiego, oddzielnego programu. Mógłby mi ktoś wyjaśnic jak to rozwiazac ?

 

[abut666]

Dobra, to ja też mam problem, potrzebuję spolszczenia. Dajcie link...

 

[djmentos]

Spolszczenia czego?