Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Файловый менеджер 
:(
    Опции темы
IDontBelieveInSilence
Дата 28.1.2007, 22:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 3.11.2006

Репутация: нет
Всего: нет
Здравствуйте.

У меня вопрос: где можно найти(или кто может поделится) простой файловый менеджер(на Делфе, не на паскале) с базовыми функциями: переименование/удаление/копирование файла/директорий, в образовательных целях?

Яндекс и Гугл не помогли.

Заранее благодарю.

Это сообщение отредактировал(а) IDontBelieveInSilence - 28.1.2007, 22:49
PM MAIL   Вверх
aktuba
Дата 28.1.2007, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: нет
Всего: 38
В Delphi  в Demo вроде был простой пример. Посмотри...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Sunvas
Дата 28.1.2007, 23:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 7
Всего: 89
Не думаю, что ты найдешь. 
Дам тебе пару советов:
- Скачай себе DRKB, там есть пару примеров работы с файлами.
- Посмотреть на вкладки win 3.1 и Samples


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Albinos_x
Дата 28.1.2007, 23:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
внизу посмотри...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
IDontBelieveInSilence
Дата 28.1.2007, 23:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 3.11.2006

Репутация: нет
Всего: нет
Цитата
внизу посмотри... 

Смотрел. Ничего путного не нашел.

Цитата
- Скачай себе DRKB, там есть пару примеров работы с файлами.

Мне нужен, как минимум, пример загрузки директорий/файлов в ListBox, или во что это все дело грузится, а там я такого не нашел.

Цитата
В Delphi  в Demo вроде был простой пример. Посмотри... 

Смотрел. Но хотелось бы взглянуть на что-то, что больше напоминает Total Commander :-)

Вопрос остается открытым. 

Это сообщение отредактировал(а) IDontBelieveInSilence - 28.1.2007, 23:17
PM MAIL   Вверх
Sunvas
Дата 28.1.2007, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 7
Всего: 89
Цитата(IDontBelieveInSilence @  28.1.2007,  23:14 Найти цитируемый пост)
Мне нужен, как минимум, пример загрузки директорий/файлов в ListBox, или во что это все дело грузится, а там я такого не нашел.

Плохо смотрел!
Гляди:
Пример загрузки файлов в ListView с иконками 
Код

uses 
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, comctrls,  
  StdCtrls;  
type 
 TForm1 = class(TForm)  
 ListView1: TListView;  
 Button1: TButton;  
 Button2: TButton;  
procedure Button1Click(Sender: TObject);  
 procedure Button2Click(Sender: TObject);  
private  
 procedure SaveListViewToFile(AListView: TListView; sFileName: string);  
 procedure LoadListViewToFile(AListView: TListView; sFileName: string);  
  
public 
end; 
const 
 Msg1 = 'File "%s" does not exist!';  
 Msg2 = '"%s" is not a ListView file!';  
var 
 Form1: TForm1;  
implementation 

{$R *.DFM} 

procedure TForm1.SaveListViewToFile(AListView: TListView; sFileName: string); 
var 
 idxItem, idxSub, IdxImage: Integer;  
 F: TFileStream;  
 pText: PChar;  
 
 sText: string;  
 
 W, ItemCount, SubCount: Word;  
 
 MySignature: array [0..2] of Char;  
 
  
begin 
 //Initialization  
 
 with AListView do  
 
  
 begin  
 
  
 ItemCount := 0;  
 
 SubCount := 0;  
 
 //****  
 
 MySignature := 'LVF';  
 
 // ListViewFile  
 
 F := TFileStream.Create(sFileName, fmCreate or fmOpenWrite);  
 
 F.Write(MySignature, SizeOf(MySignature));  
 
 if Items.Count = 0 then  
 
  
 // List is empty  
 
 ItemCount := 0  
 
  
 else  
 
  
 ItemCount := Items.Count;  
 
  
 F.Write(ItemCount, SizeOf(ItemCount));  
 
 if Items.Count > 0 then  
 
 begin  
 
  
 for idxItem := 1 to ItemCount do  
 
  
 begin  
 
  
 with Items[idxItem - 1] do  
 
  
 begin  
 
 //Save subitems count  
 
 if SubItems.Count = 0 then SubCount := 0 else SubCount := Subitems.Count;  
 
 F.Write(SubCount, SizeOf(SubCount));  
 
 //Save ImageIndex  
 
 IdxImage := ImageIndex;  
 
 F.Write(IdxImage, SizeOf(IdxImage));  
 
 //Save Caption  
 
 sText := Caption;  
 
 w := Length(sText);  
 
 pText := StrAlloc(Length(sText) + 1);  
 
 StrPLCopy(pText, sText, Length(sText));  
 
 F.Write(w, SizeOf(w));  
 
 F.Write(pText^, w);  
 
 StrDispose(pText);  
 
 if SubCount > 0 then  
 
  
 begin  
 
  
 for idxSub := 0 to SubItems.Count - 1 do  
 
  
 begin  
 
  
 //Save Item's subitems  
 
 sText := SubItems[idxSub];  
 
 w := Length(sText);  
 
 pText := StrAlloc(Length(sText) + 1);  
 
 StrPLCopy(pText, sText, Length(sText));  
 
 F.Write(w, SizeOf(w));  
 
 F.Write(pText^, w);  
 
 StrDispose(pText);  
 
  
 end;  
 
  
 end;  
 
  
 end;  
 
  
 end;  
 
  
 end;  
 
  
 F.Free;  
 
  
 end;  
 
  
end; 



procedure TForm1.LoadListViewToFile(AListView: TListView; sFileName: string); 
var 
 F: TFileStream;  
 
 IdxItem, IdxSubItem, IdxImage: Integer;  
 
 W, ItemCount, SubCount: Word;  
 
 pText: PChar;  
 
 PTemp: PChar;  
 
 MySignature: array [0..2] of Char;  
 
 sExeName: string;  
 
  
begin 
 with AListView do  
 
  
 begin  
 
  
 ItemCount := 0;  
 
 SubCount := 0;  
 
 sExeName := ExtractFileName(sFileName);  
 
 if not FileExists(sFileName) then  
 
  
 begin  
 
  
 MessageBox(Handle, PChar(Format(Msg1, [sExeName])), 'I/O Error', MB_ICONERROR);  
 
 Exit;  
 
  
 end;  
 
  
 F := TFileStream.Create(sFileName, fmOpenRead);  
 
 F.Read(MySignature, SizeOf(MySignature));  
 
 if MySignature <> 'LVF' then  
 
  
 begin  
 
  
 MessageBox(Handle, PChar(Format(Msg2, [sExeName])), 'I/O Error', MB_ICONERROR);  
 
 Exit;  
 
  
 end;  
 
  
 F.Read(ItemCount, SizeOf(ItemCount));  
 
 Items.Clear;  
 
 for idxItem := 1 to ItemCount do  
 
  
 begin  
 
  
 with Items.Add do  
 
  
 begin  
 
  
 //Read imageindex  
 
 F.Read(SubCount, SizeOf(SubCount));  
 
 //Read imageindex  
 
 F.Read(IdxImage, SizeOf(IdxImage));  
 
 ImageIndex := IdxImage;  
 
 //Read the Caption  
 
 F.Read(w, SizeOf(w));  
 
 pText := StrAlloc(w + 1);  
 
 pTemp := StrAlloc(w + 1);  
 
 F.Read(pTemp^, W);  
 
 StrLCopy(pText, pTemp, W);  
 
 Caption := StrPas(pText);  
 
 StrDispose(pTemp);  
 
 StrDispose(pText);  
 
 if SubCount > 0 then  
 
  
 begin  
 
  
 for idxSubItem := 1 to SubCount do  
 
  
 begin  
 
  
 F.Read(w, SizeOf(w));  
 
 pText := StrAlloc(w + 1);  
 
 pTemp := StrAlloc(w + 1);  
 
 F.Read(pTemp^, W);  
 
 StrLCopy(pText, pTemp, W);  
 
 Items[idxItem - 1].SubItems.Add(StrPas(pText));  
 
 StrDispose(pTemp);  
 
 StrDispose(pText);  
 
  
 end;  
 
  
 end;  
 
  
 end;  
 
  
 end;  
 
  
 F.Free;  
 
  
 end;  
 
  
end; 

// Example: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 // Save Items and Clear the ListView  
 
 SaveListViewToFile(ListView1, 'MyListView.sav');  
 
 ListView1.Items.Clear;  
 
  
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
 // Load Items  
 
 LoadListViewToFile(ListView1, 'MyListView.sav');  
 
  
end; 


Пример написания FileListBox  

Код

1)WinAPI 


{uses ShellApi} 

procedure TForm1.ListBox1DblClick(Sender: TObject); 
 var s:string;  
 
  
begin 
 s:=listbox1.Items[SendMessage(ListBox1.Handle,lb_GetCurSel,0,0)];  
 
 if edit1.Text[length(edit1.text)]<>'\' then edit1.text:=concat(edit1.text+'\');  
 
 if (not FileExists(edit1.text+s)) and (s[1]='[')and(s[length(s)]=']') then  
 
 DlgDirList( handle,  
 
  
 PChar(edit1.text+copy(s,2,length(s)-2)),  
 
 ListBox1.Handle,  
 
 Edit1.Handle,  
 
 faAnyFile  
 
  
  );  
 
  
 if edit1.Text[length(edit1.text)]<>'\' then edit1.text:=concat(edit1.text+'\');  
 
 if FileExists(edit1.text+s) then  
 
  
 begin  
 
  
 caption:=edit1.text+s;  
 
 ShellExecute(handle,'open',PChar(edit1.text+s),'','c:\',sw_show);  
 
  
 end  
 
  
end; 

procedure TForm1.FormShow(Sender: TObject); 
begin 
 edit1.Width:=1024*8-1;  
 
 edit1.Visible:=false;  
 
 DlgDirList(handle,  
 
 PChar('c:\'),  
 
 ListBox1.Handle,  
 
 Edit1.Handle,  
 
 faAnyFile  
 
 );  
 
 listbox1.Sorted:=false;  
 
 listbox1.Sorted:=true;  
 
  
end; 


2) 
{uses ShellAPI} 
type PListBox=^TListBox; 

Procedure FillList(List:PListBox;pathh,mask:string;attr:Cardinal); 
var path:string; 
 ser:TSearchRec;  
 
  
begin 
 path:=pathh;  
 
 if path[length(path)]<>'\' then path:=path+'\';  
 
 List^.Items.Clear;  
 
 if FindFirst(path+mask,attr,ser)<>0 then exit;  
 
 List^.Items.Add(ser.Name);  
 
 while FindNext(ser)=0 do  
 
  
 begin  
 
  
 if ser.Attr and faDirectory=faDirectory then   
 
  
 List^.Items.Add(' ['+Ser.Name+']')  
 
  
 else   
 
  
 List^.Items.Add(Ser.Name);  
 
  
 end;  
 
  
 List^.Sorted:=false;  
 
 list^.Sorted:=true;  
 
  
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
 FillList(@ListBox1,edit1.text,'*.*',faAnyFile);  
 
  
end; 

procedure TForm1.ListBox1DblClick(Sender: TObject); 
var s:string; 
begin 
 s:=ListBox1.Items[SendMessage(ListBox1.Handle,lb_GetCurSel,0,0)];  
 
 if (not FileExists(edit1.text+s)) and (s[1]+s[2]=' [') and (s[length(s)]=']') then  
 
  
 begin  
 
  
 FillList(@ListBox1,edit1.text+copy(s,3,length(s)-3),'*.*',faAnyFile);  
 
 edit1.text:=edit1.text+copy(s,3,length(s)-3)+'\';  
 
  
 end;  
 
  
 if FileExists(edit1.text+s) then   
 
  
 ShellExecute(handle,'open',PChar(edit1.text+s),'','c:\',sw_show);  
 
  
end; 

Добавим иконки: 

{uses ShellAPI} 
type PListBox=^TListBox; 

Procedure FillList(List:PListBox;pathh,mask:string;attr:Cardinal); 
var path:string; 
 ser:TSearchRec;  
 
  
begin 
 path:=pathh;  
 
 if path[length(path)]<>'\' then path:=path+'\';  
 
 List^.Items.Clear;  
 
 if FindFirst(path+mask,attr,ser)<>0 then exit;  
 
 List^.Items.Add(ser.Name);  
 
 while FindNext(ser)=0 do  
 
  
 begin  
 
  
 if ser.Attr and faDirectory=faDirectory then   
 
   List^.Items.Add(' ['+Ser.Name+']')  
 
 else   
 
   List^.Items.Add(Ser.Name);  
 
  
 end;  
 
  
 List^.Sorted:=false;  
 
 list^.Sorted:=true;  
 
  
end; 


procedure TForm1.FormCreate(Sender: TObject); 
begin 
  FillList(@ListBox1,edit1.text,'*.*',faAnyFile); 
  listbox1.itemheight:=18; 
end; 

procedure TForm1.ListBox1DblClick(Sender: TObject); 
var s:string; 
  Icon:hIcon; 
  IconIndex:word; 
begin 
 IconIndex:=1;  
 
 s:=ListBox1.Items[SendMessage(ListBox1.Handle,lb_GetCurSel,0,0)];  
 
 if (not FileExists(edit1.text+s)) and (s[1]+s[2]=' [') and (s[length(s)]=']') then  
 
  
 begin  
 
   FillList(@ListBox1,edit1.text+copy(s,3,length(s)-3),'*.*',faAnyFile);  
 
   edit1.text:=edit1.text+copy(s,3,length(s)-3)+'\';  
 
 end;  
 
  
 if FileExists(edit1.text+s) then   
 
  
 ShellExecute(handle,'open',PChar(edit1.text+s),'','c:\',sw_show);  
 
  
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var a:array of integer; 
 i:integer;  
 
  
begin 
 SetLength(a,ListBox1.Items.Count+1);  
 
 //ZeroMemory(@a,ListBox1.Items.Count*4);  
 
 for i:=0 to ListBox1.Items.Count+1 do  
 
 a[i]:=10;  
 
 beep;  
 
 beep;  
 
 beep;  
 
 beep;  
 
 beep;  
 
 SendMessage(ListBox1.Handle,lb_SetTabStops,ListBox1.Items.Count,Integer(@a));  
 
  
end; 

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; 
Rect: TRect; State: TOwnerDrawState); 
var icon:hIcon; 
 iconindex:word;  
 
 bm:TBitmap;  
 
  
begin 
 iconindex:=1;  
 
 bm:=TBitmap.create;  
 
 bm.Width:=34;  
 
 bm.Height:=34;  
 
 ListBox1.Canvas.TextOut(17+Rect.Left,Rect.Top,ListBox1.Items[index]);  
 
 if (copy(ListBox1.Items[index],1,2)=' [') and   
 
    (not FileExists(edit1.text+ListBox1.Items[Index])) then  
 
  
 begin  
 
  
 Icon := ExtractAssociatedIcon(HInstance,  
 
 PChar(edit1.text+copy(ListBox1.Items[Index],3,length(ListBox1.Items[Index])-3)),  
 
 IconIndex);  
 
 DrawIcon(bm.Canvas.Handle, 0, 0, Icon);  
 
 bm.Canvas.StretchDraw(classes.rect(0,0,16,16),bm);  
 
 ListBox1.Canvas.CopyRect(classes.rect(0,rect.top,16,rect.top+16),bm.canvas,classes.rect(0,0,16,16));  
 
  
 end  
 
  
 else  
 
 begin  
 
  
 Icon := ExtractAssociatedIcon(HInstance,  
 
 PChar(edit1.text+ListBox1.Items[Index]),  
 
 IconIndex);  
 
 DrawIcon(bm.Canvas.Handle, 0, 0, Icon);  
 
 bm.Canvas.StretchDraw(classes.rect(0,0,16,16),bm);  
 
 ListBox1.Canvas.CopyRect(classes.rect(0,rect.top,16,rect.top+16),bm.canvas,classes.rect(0,0,16,16));  
 
  
 end;  
 
 bm.Free;  
 
 CloseHandle(Icon);  
 
  
end; 

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word; 
Shift: TShiftState); 
begin 
  ListBox1.Repaint; 
end; 

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
var k:word; 
begin 
  k:=0; 
  Listbox1.OnKeyDown(sender,k,shift); 
end; 





--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Albinos_x
Дата 28.1.2007, 23:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
Цитата(IDontBelieveInSilence @  28.1.2007,  23:14 Найти цитируемый пост)
Мне нужен, как минимум, пример загрузки директорий/файлов в ListBox, или во что это все дело грузится, а там я такого не нашел.

DRKB - Работа с файловой системой - Пример написания FileListBox

Добавлено @ 23:28 
в ссылке внизу "Создание файлового менеджера" тоже примеры есть... значит плохо смотрел...



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Sunvas
Дата 28.1.2007, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 7
Всего: 89
Я бы советовал для начала все-таки посмотреть на компоненты типа ShellTreeView


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
bartram
Дата 29.1.2007, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: нет
Всего: 29
В папке Demos есть  smile 


--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 
PM MAIL ICQ   Вверх
Sunvas
Дата 29.1.2007, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 7
Всего: 89
Цитата(bartram @  29.1.2007,  16:35 Найти цитируемый пост)
В папке Demos есть  

Где?


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Yanis
Дата 29.1.2007, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 4
Всего: 111
Наверное все имею ввиду это: $(DELPHI)\Demos\Doc\Filmanex. IMHO проще своё написать smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Sunvas
Дата 29.1.2007, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 7
Всего: 89
Цитата(Yanis @  29.1.2007,  19:41 Найти цитируемый пост)
Наверное все имею ввиду это: $(DELPHI)\Demos\Doc\Filmanex.

Глюк на глюке. Да и выглядит он страшнова-то.



--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Yanis
Дата 29.1.2007, 19:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 4
Всего: 111
Sunvas
Не без этого. Но это же просто пример...
Для IDontBelieveInSilence думаю подойдёт. Иначе тему нужно переносить либо в помощь, либо в работу.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
IDontBelieveInSilence
Дата 30.1.2007, 00:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 3.11.2006

Репутация: нет
Всего: нет
Цитата
Для IDontBelieveInSilence думаю подойдёт

Не подошёл :-(. Может все-таки кто-нибудь уже писал для себя файлменеджеры, которые в последствии не понадобились? Может поделитесь сурсиками, если не жалко.
PM MAIL   Вверх
aktuba
Дата 30.1.2007, 03:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: нет
Всего: 38
Цитата

Не подошёл :-(.


А что не подошло? В чем у самого проблемы с кодом? Или лень писать?  smile 


--------------------
user posted image
PM MAIL WWW Skype   Вверх
IDontBelieveInSilence
Дата 1.2.2007, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 3.11.2006

Репутация: нет
Всего: нет
Цитата
А что не подошло? В чем у самого проблемы с кодом? Или лень писать?

Нет. Просто меня сам вывод файлов, в данный момент, волнует меньше, сколько TotalCmd-подобные функции, например мне интересно, как сделать следующее(отдельная благодарность за готовый код smile:
1. Выпадающее меню по нажатию на "Alt+вниз"(типа, история папок где ты был) которое вылетает ровно под "Имя".
2. Как выводить дефолтное(стандартное виндусовское, которое в проводнике) контекстное меню применимое к папке/файлу?
3. Как реализовать то, что в "Файл->Печать", в TotalCmd?
4. Как осуществить быстрый поиск по файлам с заданным значением в поле "Текст"(как в том же TotalCmd)?

Вроде всё. Это то, что меня пока интересует.

Заранее благодарю за помощь.
PM MAIL   Вверх
Kuvaldis
Дата 3.2.2007, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


механик-вредитель
***


Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61
IDontBelieveInSilence, 
Эх, поделиться что ли своим курсовым? smile 
Правда, делал в Buider, но думаю, что пригодится (VCL в конце-то концов + WinAPI) 

P.S. Если надо, то есть документация к курсовому


Это сообщение отредактировал(а) Kuvaldis - 3.2.2007, 15:37

Присоединённый файл ( Кол-во скачиваний: 21 )
Присоединённый файл  Good.zip 12,53 Kb


--------------------
Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей
PM MAIL ICQ   Вверх
aktuba
Дата 3.2.2007, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: нет
Всего: 38
IDontBelieveInSilence, ты определись, что тебе необходимо. Ты просил примеры файл-менеджеров - ты их получил.

P.S.: один топ - один вопрос. Задай каждый вопрос в отдельном топе - тогда и получишь ответы...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Faiton
Дата 5.2.2007, 23:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 13.10.2006

Репутация: нет
Всего: нет
тебе то менеджер зачем понадобился???
чем существующии не угодили?
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0758 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.