[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. zl0y

    zl0y Banned

    Joined:
    13 Sep 2006
    Messages:
    371
    Likes Received:
    270
    Reputations:
    109
    Да вобще лень книжку прочесть =))
     
  2. KEZ

    KEZ Ненасытный школьник

    Joined:
    18 May 2005
    Messages:
    1,604
    Likes Received:
    754
    Reputations:
    397
    >>infernal-team
    Как скрыть программу с панели задач?

    заклей темным скотчем или изолентой то место внизу экрана где кнопка твоей программы на панели задач
     
    2 people like this.
  3. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    как всегда кез со своими оригинальными ответами :D
     
  4. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Ты читай до конца лол ! " Умный " нашелся.
    Смог, влепил бы тебе сто минусов, чем ты людей помог с твоим умным постом???
     
    #304 z01b, 24 Jul 2007
    Last edited: 24 Jul 2007
  5. mari00

    mari00 Elder - Старейшина

    Joined:
    27 Oct 2006
    Messages:
    93
    Likes Received:
    39
    Reputations:
    16
    Эээ чет вы тут начали лаяться=\, ну да ладно, вот такой вопрос как организовать поиск определенного файла по имени или части имени.Какие компоненты использовать?И можно ли обойтись без Апи функций и процедур?
     
  6. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Вот библиотека nthide.dll, работает отличьно !
    http://slil.ru/24659192
     
  7. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Делается через ТSearchRec
     
  8. KEZ

    KEZ Ненасытный школьник

    Joined:
    18 May 2005
    Messages:
    1,604
    Likes Received:
    754
    Reputations:
    397
    > как всегда кез со своими оригинальными ответами

    ты сначала попробуй! увидишь что это помогает!
     
  9. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    да я и не сомниваюсь, единственный минус, это что действует только локально ))) :D
     
  10. Exile1985

    Exile1985 Elder - Старейшина

    Joined:
    10 Aug 2006
    Messages:
    124
    Likes Received:
    35
    Reputations:
    1
    а какой смысл отвечать на такие вопросы?
    лично я просто не вижу смысла отвечать на них, если он не знает как закрыть форму, что можно ему обьяснять?? да ничего, единственное что можно сказать это "бери книгу и учи".

    я не говорю что все вопросы тупые, но некоторые просто поражают своей тупостью :mad:


    2. а чем тут поможешь, эта болезнь не лечится

    3. а мне лично пофигу на эти + или -, какая разница, у этого гения плюсов вон за штукарь перевалило, а он тупит, вывод: нахрена они нужны???
     
    1 person likes this.
  11. KEZ

    KEZ Ненасытный школьник

    Joined:
    18 May 2005
    Messages:
    1,604
    Likes Received:
    754
    Reputations:
    397
    чел, скоро твоя агрессия просто кончится и ты поймешь что на форум.античат.ру людям бесполезно что-либо обьяснять ; )
    поэтому если кто-то спросит как закрыть форму скажи "скотчем"
     
    3 people like this.
  12. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Кез, без обид, но если не хочешь помогать челу, то закрой глаза на его пост, и ничего не пиши
     
  13. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    289
    Reputations:
    43
    Компоненты? ну вот тебе webfile.ru/1477726 (6кб) ;)
    простой думаю разберешься...
    ун а если руками-то:

    button1.click

    var sr:TSearchRec;
    begin
    //ищем... папка c:\windows; по расширению exe; все файлы (скрытые, системные, и т.д.) кроме папок
    //если функция возр-т 0, то что-то найденно...
    if FindFirst('c:\windows\*.exe', faAnyFile-faDirectory,sr)=0 then
    try
    repeat
    ListBox1.Items.Add(ExtractFileName(sr.Name));
    //добавляем имя найденного файла в listbox
    until FindNext(sr)<>0;
    finally
    //освобождаем ресурсы
    FindClose(sr);
    end;
    end;

    вот и все... собственно говоря... ;)
     
    1 person likes this.
  14. da_ff

    da_ff Elder - Старейшина

    Joined:
    11 Jul 2006
    Messages:
    118
    Likes Received:
    22
    Reputations:
    26
    procedure GetList(Dir:string;SL:TStringList);
    var
    i:integer;
    SRec:TSearchRec;
    begin
    i:=FindFirst(Dir+'\'+'*',faAnyFile,SRec);
    while i=0 do
    begin
    if((SRec.Name='')or(SRec.Name='.')or(SRec.Name='..'))then
    begin
    end
    else if SRec.Attr=faDirectory then
    GetList(Dir+'\'+SRec.Name,SL)
    else
    //здесь выполняются действия с файлами делай че хочешь
    SL.Add(GetTitle(Dir+'\'+SRec.Name)+#0+Dir+'\'+SRec.Name);//для примера собираются имена файлов в StringList
    i:=FindNext(SRec);
    end;
    end;
     
  15. xaker-boss

    xaker-boss Elder - Старейшина

    Joined:
    6 Mar 2007
    Messages:
    251
    Likes Received:
    49
    Reputations:
    -11
    Кто может выложете те компоненты которые нужны для работы с этим исходником:
    _http://forum-mp3.org/mini_player.zip
    Буду вам очень блогодарен.
    У меня Delphi 7
     
  16. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    289
    Reputations:
    43
    1. компонент KMAlert
    2. Trayicon


    ВСЕ ИМЕЕТСЯ В АРХИВЕ!
     
    1 person likes this.
  17. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Открываешь KMAlert.pas потом идешь в Component > Install Component > потом жмешь ок.
    Аналоничьно с Tray
     
  18. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    есть TServerSocket и TClientSocket, как передать файл от сервера к клиенту или наоборот.

    Можно и через другие компоненты, но желательно через сокеты.
     
  19. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Возможно ли поменять МАК адресс с помошью делфи?
     
  20. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Code:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ScktComp, StdCtrls;
    
    type
      TForm1 = class(TForm)
        ClientSocket1: TClientSocket;
        ServerSocket1: TServerSocket;
        btnTestSockets: TButton;
        procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
        procedure FormCreate(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
        procedure ClientSocket1Disconnect(Sender: TObject;
          Socket: TCustomWinSocket);
        procedure ClientSocket1Connect(Sender: TObject;
          Socket: TCustomWinSocket);
        procedure ServerSocket1ClientConnect(Sender: TObject;
          Socket: TCustomWinSocket);
        procedure btnTestSocketsClick(Sender: TObject);
      private
        FStream: TFileStream;
        { Private Declatrations }
      public
        { Public Declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.ClientSocket1Read(Sender: TObject;
      Socket: TCustomWinSocket);
    var
      iLen: Integer;
      Bfr: Pointer;
    begin
      iLen := Socket.ReceiveLength;
      GetMem(Bfr, iLen);
      try
        Socket.ReceiveBuf(Bfr^, iLen);
        FStream.Write(Bfr^, iLen);
      finally
        FreeMem(Bfr);
      end;
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      FStream := nil;
    end;
    
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      if Assigned(FStream) then
      begin
        FStream.Free;
        FStream := nil;
      end;
    end;
    
    procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    begin
      if Assigned(FStream) then
      begin
        FStream.Free;
        FStream := nil;
      end;
    end;
    
    procedure TForm1.ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    begin
      FStream := TFileStream.Create('c:\temp\test.stream.html', fmCreate or fmShareDenyWrite);
    end;
    
    procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    begin
      Socket.SendStream(TFileStream.Create('c:\temp\test.html', fmOpenRead or fmShareDenyWrite));
    end;
    
    procedure TForm1.btnTestSocketsClick(Sender: TObject);
    begin
      ServerSocket1.Active := True;
      ClientSocket1.Active := True;
    end;
    
    end. 
     
Loading...
Thread Status:
Not open for further replies.