Genvej til Tøm papirkurv

LOL Shafh

LL det behøver du ikke koder for at gøre. Du kan tage papirkurven og hive den ned i den lille menu som du på din bjælke og vupit Så har du det som du vil have det. Du kan derefter højreklikke og tømme papirkurven hvor end du er

MxS @ http://mxs.frac.dk
Slamkodning for fred

Hej udviklere

Skulle her være nogle som kan komme med en løsning på nedenstående spørgsmål, så venter der 100 UP

Jeg vil oprette en genvej som tømmer papirkurven, så jeg altså kan slippe for at skulle ud på skrivebordet for at tømme.. Er det muligt? - Dvs. hvordan gør jeg dette?


--
Ronni Egeriis - http://sqdev.dk/
Co-Admin

Her er koden i delphi:

unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Classes,
   Graphics, ShellApi,Controls, Forms,
   Dialogs,StdCtrls, ExtCtrls;
type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject) ;
   end;

var Form1: TForm1;

  function SHEmptyRecycleBin
   (Wnd:HWnd; LPCTSTR: PChar;
   DWORD:Word):Integer; stdcall;

  const
  SHERB_NOCONFIRMATION = $00000001;
  SHERB_NOPROGRESSUI = $00000002;
  SHERB_NOSOUND = $00000004;

  implementation {$R *.DFM}

  function SHEmptyRecycleBin; external
   'SHELL32.DLL' name 'SHEmptyRecycleBinA';

  procedure TForm1.Button1Click(Sender: TObject) ;
  begin
   SHEmptyRecycleBin(self.handle,'',
     SHERB_NOCONFIRMATION) ;
  end;
end.

Så kan du jo lave et program som er kørende hele tiden, og når du så trykker på en genvejs tast tømmer den din skraldespand...


Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

[Redigeret d. 26/03-04 13:08:08 af Frede_Manden]

Nejjjjjjjj. Det vil jeg skrive...
Men min koder er bare anderledes. :-b Ha ha!!!
Nej du kan ogå bruge min.


procedure EmptyRecycleBin;
const
SHERB_NOCONFIRMATION = $00000001;
SHERB_NOPROGRESSUI = $00000002;
SHERB_NOSOUND = $00000004;
type
TSHEmptyRecycleBin = function(Wnd: HWND;
pszRootPath: PChar;
dwFlags: DWORD): HRESULT; stdcall;
var
SHEmptyRecycleBin: TSHEmptyRecycleBin;
LibHandle: THandle;
begin { EmptyRecycleBin }
LibHandle := LoadLibrary(PChar('Shell32.dll'));
if LibHandle <> 0 then @SHEmptyRecycleBin :=
GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
else
begin
MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
Exit;
end;

if @SHEmptyRecycleBin <> nil then
SHEmptyRecycleBin(Application.Handle,
nil,
SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
FreeLibrary(LibHandle); @SHEmptyRecycleBin := nil;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
EmptyRecycleBin;
end;



Her kan du bare i stædet for at skrive:

EmptyRecycleBin;

i en knap, så i formens Oncreat. Og så bagefter så skrive eks. Close;
Det ville kunne gøre det!!!




I dette tildfæld må der deles lige op (50% til vær). Syns du ikke det er rimeligt?
Frede har også over 1000 og kan overleve, uden. Så 50 50, som de siger i hvem vil være millionær!!!



Theis F. Hinz
(Shafh)
Theisf@stofanet.dk


Man kommer aldrig vider, vis alle er enige...

[Redigeret d. 26/03-04 13:50:56 af Shafh]

Hvis det er noget du selv sletter, kan du bare holde shift nede mens du trykker delete, så spørger den om man vil slette i stedet for at flytte til papirkurven...

---
Hilsen Anders

[Redigeret d. 26/03-04 16:19:27 af Anders (r0x3r)]

Yeah!!!
Det kan jeg. Desværre ikke igennem Windows... Men du bliver nød til at lave det selv. Vis du vil bruge mit forslag?

Kan du bruge delphi?
Du skal ikke være god. Men bare kunne lave et par ting?
Det er nemlig ganske enkelt at tilføje en kode i dit delphi projeckt.

Svar, og jeg giver koden...



Theis F. Hinz
(Shafh)
Theisf@stofanet.dk


Man kommer aldrig vider, vis alle er enige...

LOL Shafh

Hvor er i fuskere. Anders, han spør om en genvej.
Og så er min funktion også bedre når den er færdig. Og så kan den også hives ned i taskebaren!!!
Og så skal der bare trykkes en gang og så SLUT.
Ikke noget højerklik og så finde knappen tøm papirskurven!!!
Og så kom jeg altså også først.
Det er godt nok mange up, for så lidt.
Men OK.
LOL, Fryd, Ha ha, YEAH, OST Osv.



Theis F. Hinz
(Shafh)
Theisf@stofanet.dk


Man kommer aldrig vider, vis alle er enige...

[Redigeret d. 26/03-04 17:04:45 af Shafh]