1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.DesktopDblClick(Sender: TObject);
var
  progpfad: string;
begin
  if reason = true then
    begin
    reason := false;
    qrMain.SQL.Text:=('select * from programme where programm = "'+clickprog+'"');
    qrMain.Open;

    progpfad := qrMain.FieldByName('pfad').AsString;

    qrMain.Close;
    trMain.Disconnect;
    dbMain.Disconnect;

    If progpfad = '' then
    MessageDlg('Unbekanntes Programm!',mtError,[mbOk],0)
    else
    //RunProcess(progpfad);
    MessageDlg(progpfad,mtInformation,[mbOk],0)
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:

function RunProcess(FileName: string): Longword;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation; 
begin 
  FillChar(StartupInfo, SizeOf(StartupInfo), #0);
  StartupInfo.cb          := SizeOf(StartupInfo); 
  StartupInfo.dwFlags     := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
  StartupInfo.wShowWindow := SW_SHOW;
  if not CreateProcess(nil,
    @Filename[1], 
    nil, 
    nil,
    False,
    CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS,
    nil, 
    nil, 
    StartupInfo, 
    ProcessInfo) 
    then 
      Result := WAIT_FAILED; 
end;

procedure einlesen(pfad:string);
var
sr:TWin32FindData;
h:THandle;
listitem:TListitem;
FileInfo:SHFileInfo;
gr:integer;
Icon:TIcon;
hlp:TListview;
begin
il.clear;
lv.items.clear;
hlp:=TLIstview.create(nil);
hlp.visible:=false;
hlp.parent:=lv;
hlp.sorttype:=sttext;
Icon:=TIcon.Create;
gr:=sizeof(FileInfo);
lv.items.beginupdate;
h:=FindFirstFile(PChar(pfad+'*.*'),sr);

if h<>INVALID_HANDLE_VALUE then repeat
SHGetFileInfo(pchar(pfad+sr.cFileName),0,FileInfo,gr,SHGFI_TypeName or SHGFI_ICON);
if FileInfo.szTypeName = 'Verknüpfung' then
if sr.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
if sr.dwFileAttributes and FILE_ATTRIBUTE_HIDDEN = 0 then begin
listitem:=lv.items.add;
listitem.caption:=sr.cFilename;
Icon.handle:=FileInfo.hIcon;
listitem.Imageindex:=il.addIcon(Icon);
end;
until Findnextfile(h,sr)=false;
Icon.free;
hlp.free;
lv.items.endupdate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
lv := ListView1;
il:=TImagelist.create(self);
il.Height := 32;
il.Width := 32;
il.BkColor := ListView1.Color;
lv.largeimages:=il;
lv.viewstyle:=vsicon;
einlesen('C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
lv.free;
il.free;
end;

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  MyHitTest : THitTests;
begin
  MyHitTest := ListView1.GetHitTestInfoAt(X,Y);
  if htOnIcon in MyHitTest then
    begin
    reason:=true;
    clickprog:=ListView1.ItemFocused.Caption;
    end
  else if htOnLabel in MyHitTest then
    begin
    reason:=true;
    clickprog:=ListView1.ItemFocused.Caption;
    end
  else
    begin
    reason:=false;
    clickprog:='';
    end;
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
var
  progpfad: string;
begin
  if reason = true then
    begin
    reason :=false;
    qrMain.SQL.Text:=('select * from programme where programm = "'+clickprog+'"');
    qrMain.Open;

    progpfad := qrMain.FieldByName('pfad').AsString;

    qrMain.Close;
    trMain.Disconnect;
    dbMain.Disconnect;

    If progpfad = '' then
    MessageDlg('Unbekanntes Programm!',mtError,[mbOk],0)
    else
    RunProcess(progpfad);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

destructor TZTransact.Destroy;
begin
  if Connected then
    Disconnect;
  CloseNotifies;

  if Assigned(FDatabase) then
    FDatabase.RemoveTransaction(Self);
  FQuery.Free;
  FHandle.Free;
  FNotifies.Free;
  inherited Destroy;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TZDatabase.RemoveTransaction(Transact: TObject);
var
  N: Integer;
begin
  try
    N := FTransacts.IndexOf(Transact);
    if N >= 0 then
    try
      TZTransact(FTransacts[N]).Disconnect;
    finally
      FTransacts.Delete(N);
    end;
  except
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

destructor TZTransact.Destroy;
begin
  if Connected then
    Disconnect;
  CloseNotifies;

  if Assigned(FDatabase) then
    FDatabase.RemoveTransaction(Self);
  FQuery.Free;
  FHandle.Free;
  FNotifies.Free;
  inherited Destroy;
end;					

1:
2:
3:
4:
5:
6:

try 
      TZTransact(FTransacts[N]).Disconnect; 
    finally 
      FTransacts.Delete(N); 
    end; 
  except