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

Да вобще лень книжку прочесть =))

 

>>infernal-team
Как скрыть программу с панели задач?

заклей темным скотчем или изолентой то место внизу экрана где кнопка твоей программы на панели задач

 

как всегда кез со своими оригинальными ответами

 

Ты читай до конца лол ! " Умный " нашелся.
Смог, влепил бы тебе сто минусов, чем ты людей помог с твоим умным постом???

 

Эээ чет вы тут начали лаяться=\, ну да ладно, вот такой вопрос как организовать поиск определенного файла по имени или части имени.Какие компоненты использовать?И можно ли обойтись без Апи функций и процедур?

 

Вот библиотека nthide.dll, работает отличьно !
http://slil.ru/24659192

 

Делается через ТSearchRec

 

> как всегда кез со своими оригинальными ответами

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

 

да я и не сомниваюсь, единственный минус, это что действует только локально )))

 

а какой смысл отвечать на такие вопросы?
лично я просто не вижу смысла отвечать на них, если он не знает как закрыть форму, что можно ему обьяснять?? да ничего, единственное что можно сказать это "бери книгу и учи".

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


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

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

 

чел, скоро твоя агрессия просто кончится и ты поймешь что на форум.античат.ру людям бесполезно что-либо обьяснять ; )
поэтому если кто-то спросит как закрыть форму скажи "скотчем"

 

Кез, без обид, но если не хочешь помогать челу, то закрой глаза на его пост, и ничего не пиши

 

Компоненты? ну вот тебе 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;

вот и все... собственно говоря...

 

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;

 

Кто может выложете те компоненты которые нужны для работы с этим исходником:
_http://forum-mp3.org/mini_player.zip
Буду вам очень блогодарен.
У меня Delphi 7

 

1. компонент KMAlert
2. Trayicon


ВСЕ ИМЕЕТСЯ В АРХИВЕ!

 

Открываешь KMAlert.pas потом идешь в Component > Install Component > потом жмешь ок.
Аналоничьно с Tray

 

есть TServerSocket и TClientSocket, как передать файл от сервера к клиенту или наоборот.

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

 

Возможно ли поменять МАК адресс с помошью делфи?

 

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.