• Home
  • Categories
  • WIKI
  • LANGUAGE: en
    • 便捷应用管理源代码[开源]
    Apps Section 2498 views · 0 replies ·
    Tofloor
    poster avatar
    gaochong
    deepin
    2011-08-16 18:43
    Author
    源代码我打包上传到了网盘，有需要的朋友可以下载BS 一下； ;)

    http://u.115.com/file/clqhpeea#

    appmenu_code.tar.gz


    lazarus 的TForm 类里有一个方法，是可以响应文件拖入事件的；DropFiles

    procedure FormDropFiles(Sender: TObject; const FileNames: array of String);

    我们只需要实现这个方法，就能捕获到拖入到窗口中的文件名列表  FileNames ，文件可能不止一个，因为用户有可能会同时拖入多个文件，这个用个循环处理一下就可以把文件名都取出，FileNames 本身就一个数组；

    listview 控件，是一种最常见的窗件上的列表控件，lazarus 有现成的类（可视化的VCL），直接放到窗体上就能使用；

    我把获取到文件名（含路径），添加到 listview 中，配上一个图标，就能实现添加了；

    鼠标双击这个事件，只从windows 时代开始被广泛支持的，这里也只需要实现一下就行了，
    当鼠标双击事件发生时，执行我们实现过的响应事件代码；

    比如：

      ExecuteProcess(
               UTF8ToSys( '/usr/bin/gnome-display-properties')
                     ,'');





    主要代码如下：
    3. unit Unit1;
    5. {$mode objfpc}{$H+}
    7. interface
    9. uses
    10.   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
    11.   ComCtrls, Menus, StdCtrls, ExtCtrls, IpHtml, Ipfilebroker,IniFiles;
    13. type
    14.    ShellFiles= record
    15.      fileName:string;
    16.      filePath:string;
    17.      filecode:string;
    18.      fileIMG:Integer;
    19.    end;
    23. type
    25.   { TForm1 }
    27.   TForm1 = class(TForm)
    28.     ImageList1: TImageList;
    29.     ListView1: TListView;
    30.     MenuItem1: TMenuItem;
    31.     MenuItem2: TMenuItem;
    32.     MenuItem3: TMenuItem;
    33.     MenuItem4: TMenuItem;
    34.     PageControl1: TPageControl;
    35.     PopupMenu1: TPopupMenu;
    36.     StatusBar1: TStatusBar;
    37.     TabSheet1: TTabSheet;
    38. //    procedure Button1Click(Sender: TObject);
    39.     procedure Button1Click(Sender: TObject);
    40.     procedure FormCreate(Sender: TObject);
    41.     procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
    42. //    procedure IdleTimer1Timer(Sender: TObject);
    43.     procedure ListView1DblClick(Sender: TObject);
    44.     procedure MenuItem1Click(Sender: TObject);
    45.     procedure MenuItem2Click(Sender: TObject);
    46.     procedure MenuItem3Click(Sender: TObject);
    47.     procedure MenuItem4Click(Sender: TObject);
    48.     procedure MenuItem5Click(Sender: TObject);
    49.     procedure ScrollBox1Click(Sender: TObject);
    50.     procedure TrayIcon1Click(Sender: TObject);
    51.   private
    52.     { private declarations }
    53.   public
    54.     { public declarations }
    55.     procedure ListShow;
    56.     procedure ListAdd(addfile:ShellFiles);
    57.     procedure MButtonFalse( Byn:Boolean  );
    58.   end;
    64. var
    65.   Form1: TForm1;
    66.   sedit:Boolean;
    68. implementation
    70. uses unit2,unit3,Unit4;
    72. { TForm1 }
    75. procedure TForm1.MButtonFalse( Byn:Boolean  );
    76. begin
    78. if  not byn then
    79. begin
    80.   MenuItem1.Enabled:=False;
    81.   MenuItem2.Enabled:=False;
    82.   MenuItem3.Enabled:=False;
    83.   Form1.AllowDropFiles:=False;
    84. end else
    85. begin
    86.   MenuItem1.Enabled:=true;
    87.   MenuItem2.Enabled:=true;
    88.   MenuItem3.Enabled:=true;
    89.   Form1.AllowDropFiles:=true;
    90. end;
    92. end;
    94. procedure TForm1.ListAdd(addfile:ShellFiles);
    95. var
    96.   addini:TIniFile;
    97. begin
    98.   addini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'app.ini');
    100.   if sedit then
    101.   begin
    102.     addini.EraseSection(ListView1.Selected.Caption);
    103.     ListView1.Selected.Caption:= addfile.fileName;
    104.     ListView1.Selected.SubItems[0]:= addfile.filePath;
    105.     ListView1.Selected.SubItems[1]:= addfile.filecode;
    106.     ListView1.Selected.SubItems[2]:= inttostr( addfile.fileIMG );
    107.     ListView1.Selected.ImageIndex:=  addfile.fileIMG ;
    108.    // ShowMessage(addfile.fileName);
    109.   end else
    110.   begin
    112.     with ListView1.Items.Add do
    113.     begin
    115.       Caption:= addfile.fileName;
    116.       SubItems.Add(addfile.filePath);
    117.       SubItems.Add(addfile.filecode);
    118.       ImageIndex:=addfile.fileIMG;
    120.     end;
    122.   end;
    124.   addini.WriteString(addfile.fileName,'APPName',addfile.fileName);
    125.   addini.WriteString(addfile.fileName,'APPpath',addfile.filePath);
    126.   addini.WriteString(addfile.fileName,'APPcode',addfile.filecode);
    127.   addini.WriteInteger(addfile.fileName,'imgindex',addfile.fileIMG);
    128.   addini.Free;
    129. // ListShow;
    130. end;
    132. procedure TForm1.ListShow;
    133. var
    134.   i:Integer;
    135.   test1F:TIniFile;
    136.   zdName:TStringList;
    137. begin
    139. ListView1.Clear;
    140. test1F:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'app.ini');
    141. zdName:=TStringList.Create;
    142. test1F.ReadSections(zdName);
    146. for i:=0 to zdName.Count -1 do
    147. begin
    148.     with ListView1.Items.Add do
    149.     begin
    150.       Caption:= test1F.ReadString(zdName[i],'APPName','' )  ;
    151.       SubItems.Add( test1F.ReadString(zdName[i],'APPpath','') );
    152.       SubItems.Add( test1F.ReadString(zdName[i],'APPcode','') );
    153.       SubItems.Add( test1F.ReadString(zdName[i],'imgindex','') );
    154.       ImageIndex:=  test1F.ReadInteger(zdName[i],'imgindex',0);
    155.     end;
    157. end;
    159. test1F.Free;
    161. end;
    163. procedure TForm1.FormCreate(Sender: TObject);
    164. begin
    165.   //
    166.   MButtonFalse(false);
    167.   ListShow;
    168. end;
    170. procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of String
    171.   );
    172. var
    173.   i:Integer;
    174.   add:ShellFiles;
    175. begin
    177.   sedit:=False;
    179.   for i:=0 to Length(FileNames) -1 do
    180.   begin
    182.      add.fileName:=ExtractFileName(FileNames[i]);
    183.      add.filePath:=FileNames[i];
    184.      add.filecode:='';
    185.      add.fileIMG:=1;
    187.      ListAdd(add);
    189.   end;
    191. end;
    193. procedure TForm1.Button1Click(Sender: TObject);
    194. begin
    195.   //gnome-accessibility-keyboard-properties
    196.   ExecuteProcess(
    197.            UTF8ToSys( '/usr/bin/gnome-display-properties')
    198.                  ,'');
    200. end;
    204. procedure TForm1.ListView1DblClick(Sender: TObject);
    205. var
    206.    commanstr:Pcommanstr;
    207. begin
    210. if ListView1.Selected<>nil then
    211. begin
    213.     commanstr.pathstr:= ListView1.Selected.SubItems[0];
    214.     commanstr.codestr:= ListView1.Selected.SubItems[1];
    216.     try
    218.       ExecuteProcess(
    219.            UTF8ToSys( commanstr.pathstr)
    220.                  ,commanstr.codestr);
    222.     except
    223.       Application.MessageBox('您调用不是一个有效的可以执行文件！','提示',32);
    224.       Close;
    225.     end;
    226. end;
    230. end;
    235. //
    236. procedure TForm1.MenuItem1Click(Sender: TObject);
    237. begin
    239.    Form2.Caption:='添加应用';
    240.    Form2.Edit1.Text:='';
    241.    Form2.Edit2.Text:='';
    242.    Form2.ComboBox1.ItemIndex:=1;
    244.    ImageList1.GetBitmap(1,Form2.Image1.Picture.Bitmap);
    246.    sedit := False;
    248.    Form2.ShowModal;
    250. end;
    252. procedure TForm1.MenuItem2Click(Sender: TObject);
    253. var
    254.   delini:TIniFile;
    255. begin
    257.   if ListView1.Selected<>nil then
    258.   begin
    260.     delini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'app.ini');
    261.     delini.EraseSection(ListView1.Selected.Caption);
    262.     delini.Free;
    264.     ListView1.Selected.Delete;
    266.   end;
    269. end;
    271. procedure TForm1.MenuItem3Click(Sender: TObject);
    272. var
    273.   imgindex:Integer;
    274. begin
    276. if ListView1.Selected <> nil then
    277. begin
    278.    Form2.Caption:='修改应用设置';
    279.    Form2.Edit1.Text:= ListView1.Selected.Caption;
    280.    Form2.Edit2.Text:= ListView1.Selected.SubItems[0];
    281.    Form2.Edit3.Text:= ListView1.Selected.SubItems[1];
    282.    imgindex:=  strtoint( ListView1.Selected.SubItems[2] );
    284.    Form2.ComboBox1.ItemIndex:= imgindex;
    286.    ImageList1.GetBitmap( imgindex , Form2.Image1.Picture.Bitmap );
    288.    sedit:=True;
    290.    Form2.ShowModal;
    292. end;
    294. end;
    296. procedure TForm1.MenuItem4Click(Sender: TObject);
    297. begin
    299.   Form4.ShowModal;
    301. end;
    303. procedure TForm1.MenuItem5Click(Sender: TObject);
    304. begin
    306. end;
    308. procedure TForm1.ScrollBox1Click(Sender: TObject);
    309. begin
    311. end;
    313. procedure TForm1.TrayIcon1Click(Sender: TObject);
    314. begin
    316. end;
    318. initialization
    319.   {$I unit1.lrs}
    321. end.
    Copy the Code
    Reply Favorite View the author
    All Replies

    No replies yet