Quirk

Dziewczyna byc nie musisz... po prostu ktos musi znac odpowiedzi na zadawane pytania, a niestety tak to jest w tym 'interesie' ze dziewczynom w wiekszosci przypadkow latwiej jest odpowiedziec niz facetom...
No a wracajac do tematu to jesli chodzi o dll'ki to nie mam pojecia czy sie da, ale nigdy z podobnym pomyslem sie nie spotkalem (a co za tym idzie i z rozwiazaniem), natomiast jesli chodzi o styl xp to na pewno nie musisz tego rysowac recznie. Jest do tego konkretny styl, tylko niestety w tej chwili nie moge sobie przypomniec jaki... Zobacz w manualu pod CreateWindow lub CreateWindowEx- moze tam sie czegos doszukasz.

obetnij wszystko do ostatniego '\' i powinno byc git

sprobuj pokombinowac z komunikatami WM_QUERYENDSESSION WM_ENDSESSION i/lub z WM_CLOSE

zadeklaruj sobie zmienna globalna np. HWND HwndOkna i przed linia

return false

dodaj

HwndOkna=hwnd

i pozniej odwoluj sie do HwndOkna.

Kod nie jest pewnie najlepszej jakosci, ale dziala:

BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam)
{
        AnsiString tmp,tmp2;
        char buf[100];
 GetWindowText(hwnd,buf,sizeof(buf));
 tmp=buf;
 tmp2=[tutaj fragment caption poszukiwanego okna];
 if (tmp.Pos(tmp2)==0)
  return true; //nie znalazlem szukaj dalej
 else
  {
   //znaleziono okno o caption zawierajacym podany fragment
   return false;
  }
}

zgodnie z dokumentami rfc moze byc zarowno HELO (starsza wersja) jak i EHLO (nowsza wersja)

procedure SendMail;
 type zawartosc=array[1..57] of char;
 var WSAData:TWSAData;
     sock,i:integer;
     sa:tsockaddrin;
     wiadomosc:string[100];

     zalacznik:file of char;
     linia:zawartosc;
     zrobiono,zrobione:longword;

 function odbierz(s:integer):pchar;
  var buf:array[0..99] of char;
  begin
   recv(s,buf,sizeof(buf),0);
   result:=buf;
  end;

 procedure wyslij(s:integer;co:string);
  var buf:array[0..99] of char;
      j:byte;
  begin
   fillchar(buf,100,0);
   for j:=1 to length(co) do
    begin
     buf[j-1]:=co[j];
    end;
   send(s,buf,sizeof(buf),0);
  end;

 begin
  WSAStartup(makeword(2,0),WSAData);
  sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
  if sock=INVALID_SOCKET then
   begin
   end;
  if SOCKET_ERROR=WSAAsyncSelect(sock,xMainWnd,WM_USER+1,FD_CONNECT or FD_READ or FD_WRITE) then
   begin
   end;
  sa.sin_family:=AF_INET;
  sa.sin_port:=htons(25);
  sa.sin_addr.s_addr:=inet_addr(PChar('212.126.20.60'));
  bind(sock,sa,sizeof(sa));
  connect(sock,sa,sizeof(sa));

  wiadomosc:=odbierz(sock); // 250 ...
  wyslij(sock,'EHLO smtp.o2.pl');
  wiadomosc:=odbierz(sock); // 250 ...
  wyslij(sock,'MAIL From:<'+mailod+'>');
  wiadomosc:=odbierz(sock); // 250 ...
  wyslij(sock,'RCPT To:<'+mail+'>');
  wiadomosc:=odbierz(sock); // 250 ...
  wyslij(sock,'DATA');
  wiadomosc:=odbierz(sock); // 354 ...
  wyslij(sock,'From: <'+mailod+'>');
  wyslij(sock,'To: <'+mail+'>');
  wyslij(sock,'subject: temat');
  wyslij(sock,'MIME-Version: 1.0');
  wyslij(sock,'Content-Type: multipart/mixed; boundary="gc0p4Jq0M2Yt08jU534c0p"');
  wyslij(sock,'This is a multi-part message in MIME format...');
  wyslij(sock,'--gc0p4Jq0M2Yt08jU534c0p');
  wyslij(sock,'Content-Type: text/plain');
  wyslij(sock,'Content-Disposition: inline');
  wyslij(sock,'');
  wyslij(sock,'INFO');
  wyslij(sock,'--gc0p4Jq0M2Yt08jU534c0p');
      wyslij(sock,'Content-Type: application/octream; name="1.txt"');
      wyslij(sock,'Content-Transfer-Encoding: base64');
      wyslij(sock,'Content-Disposition: attachement; filename="1.txt"');
      wyslij(sock,'');
      AssignFile(zalacznik,'c:\1.txt');
      Reset(zalacznik);
      zrobiono:=filesize(zalacznik);
      repeat
        Blockread(zalacznik,linia,SizeOf(linia),zrobione);
        wyslij(sock,Base64Encode(linia));
        zrobiono:=zrobiono-zrobione;
      until zrobiono=0;
      CloseFile(zalacznik);
      wyslij(sock,'');
  wyslij(sock,''); // End of Header

  wyslij(sock,'.'); // end of mail
  wiadomosc:=odbierz(sock); // 250 ...
  wyslij(sock,'QUIT');
  wiadomosc:=odbierz(sock); // 250 ...


  closesocket(sock);
  WSACleanup;
 end;

Mam oto taki powyzszy kod i niby wszystko jest OK, bledow nie wywala, kompiluje sie i laczy, ale po odebraniu pierwszej wiadomosci od serwera gdy cos wysle i probuje odebrac nastepna zamiast standardowej odpowiedzi otrzymuje jakby fragment tego co przed chwila wysylalem a na po kilku takich operacjach 'wiadomosc' jest pusta. Co jest zle i jak to przerobic zeby dzialalo?

OK, jednak udalo mi sie poradzis samemu sobie. Jakby ktos byl zainteresowany to podaje kod

keybd_event([tu kod ASCII klawisza],NULL,NULL,NULL);

No wiec mam programik ktory za zadanie bedzie mial uzupelniac pola w formularzu na stronce www. Do tej pory udalo mi sie zrobic tyle ze odpowiednie okno jest wywolywane na wierzch, myszka nakierowuje sie i naciska jedno z pol w formularzu i teraz moje pytanie- jak zasymulowac nacisniecie klawisza (lub w jaki inny sposob umiescic w takim polu tekst)?
Kombinowalem do tej pory troche z WM_KEYDOWN i keybd_event, ale jakos bez efektow...

W jaki sposob mozna wykryc czy jakas aplikacja odwoluje sie (otwiera, kopiuje, zapisuje czy cokolwiek innego) do jakiegos zdefiniowanego folderu/pliku, i w jaki sposob ewentualnie mozna jej na to nie zezwolic?

Moze przedstaw kawalek kodu ktorym tworzysz button to bedzie latwiej...

Jesli satysfakcjonuje Cie zwykle deaktywowanie tych przyciskow to dodaj sobie atrybut WS_SYSMENU przy tworzeniu formy

Moze sie myle ale zasadniczo wszystko co masz na formie to sa okna typu CHILD, a to gdzie napiszesz funkcje nie gra roli. Bardziej liczy sie to jak ta funkcja wyglada i do czego sie odwoluje

Wielkie dzieki, dziala jak nalezy. A co z tym suwakiem... jak to ruszyc?

dodalem ten styl no i w kodzie mam cos takiego:

case Msg of:
{...}
WM_COMMAND:
    case wPar of
     LBN_SELCHANGE:begin
        {...}
       end;
     0:begin 
       {...}
       end;
     1:begin 
        {...}
       end;
{...}

No i przy probie kompilowania tego wywala mi blad w linii '1:begin' o tresci "Duplicate case label". Co jest zle?

No wiec mam dwa pytania zwiazane z ListBoxem:
1.Stworzylem sobie takiego ListBoxa , dodaje do niego kilka wpisow i chcialbym by po kliknieciu na jeden z wpisow w tym listboxie cos sie wydarzylo- np. w labelku obok pojawil sie numer kliknietego wpisu. No i niestety nie wiem jak przechwycic to 'klikniecie' na wpis...
2.Mam 3 listboxy obok siebie z taka sama iloscia wpisow i chciabym by gdy w jednym suwak zostanie przesuniety w pozostalych przesunal sie dokladnie o tyle samo. Gdzies kiedys widzialem cos podobnego, ale teraz jakos niestety nie moge tego odszukac...
Prosilbym o pomoc