Ĺadny brzuch
Potrzebuje sposób na opróżnienie kosza. Ten który jest tu:http://forum.4progra...;h=kosz#id94326
Mi nie działa. Wuj Google mi nie pomógł.
//pozdrawiam
Taa Google Ci nie pomogło... to dlaczego mi pomogło? Wystarczyło wpisać "SHEmptyRecycleBinA" ;]
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, shellapi; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private public end; var Form1: TForm1; function SHEmptyRecycleBin (Wnd:HWnd; LPCTSTR:PChar; DWORD:Word):Integer; stdcall; const Z_POTWIERDZENIEM_I_DZWIEKIEM = $00000000; BEZ_POTWIERDZENIA = $00000001; BEZ_POSTEPU_USUWANIA = $00000002; BEZ_DZWIEKU = $00000004; implementation {$R *.dfm} function SHEmptyRecycleBin; external 'SHELL32.DLL' name 'SHEmptyRecycleBinA'; procedure TForm1.Button1Click(Sender: TObject); begin SHEmptyRecycleBin(self.handle,'', BEZ_POTWIERDZENIA); end; end.
//dziwne :| mi działa na XP'ku
Użytkownik JaCkObS edytował ten post 30 styczeń 2007, 11:22
Hmm Wpisywałem 'opróznianie kosza delphi' :P Ale to tez mi nie działa-zupełnie bez reakcji
Dobra już sobie poradziłem. Usunąłem niepotrzebne 'entery' i jakos poszło:P
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mi nie działa. Wuj Google mi nie pomógł.
//pozdrawiam
Taa Google Ci nie pomogło... to dlaczego mi pomogło? Wystarczyło wpisać "SHEmptyRecycleBinA" ;]
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, shellapi; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private public end; var Form1: TForm1; function SHEmptyRecycleBin (Wnd:HWnd; LPCTSTR:PChar; DWORD:Word):Integer; stdcall; const Z_POTWIERDZENIEM_I_DZWIEKIEM = $00000000; BEZ_POTWIERDZENIA = $00000001; BEZ_POSTEPU_USUWANIA = $00000002; BEZ_DZWIEKU = $00000004; implementation {$R *.dfm} function SHEmptyRecycleBin; external 'SHELL32.DLL' name 'SHEmptyRecycleBinA'; procedure TForm1.Button1Click(Sender: TObject); begin SHEmptyRecycleBin(self.handle,'', BEZ_POTWIERDZENIA); end; end.
//dziwne :| mi działa na XP'ku
Użytkownik JaCkObS edytował ten post 30 styczeń 2007, 11:22
Hmm Wpisywałem 'opróznianie kosza delphi' :P Ale to tez mi nie działa-zupełnie bez reakcji
Dobra już sobie poradziłem. Usunąłem niepotrzebne 'entery' i jakos poszło:P