Vinduene dialoger som microsoft glemte å documentMost av oss har sett disse dialogene i vinduer og de fleste MS-programmer her er en måte å komme i kontakt med de fleste av disse: 1) Avslutt vinduer Dialog
presenteres når du gå til start-menyen og velg avslutning. håndtaket parameter er ubrukt i Windows NT på Windows 95 får du en WM_QUIT i WndProc, men hvis du tilordner en hendelse i OnCloseQuery vil gjøre. Prosedyren ExitWindowsDialog (Handle: THandle); STDCALL; ekstern 'shell32.dll indeks 60; //API declarationSample bruk: prosedyre TForm1.Button1Click (Sender: TObject), begynner ExitWindowsDialog (Handle), slutten, 2) Omstart vinduer dialog
presenteres når et system bredt endring (stort sett med drivere), flaggene parameter håndtaket brukes til å vite eieren av vinduet årsaken er en streng wich er vist i dialogboksen (hint: bruke linjeskift for å bryte tekst i linjer) flaggene korresponderer med noen ExitWindowsEx eller ExitWindows flagg (de begynner de fleste med EW_XXX eller EWX_XXX) -funksjonen RestartWindowsDialog (Håndter: THandle; Grunn: PChar; Flags: integer): integer; STDCALL; eksterne 'shell32.dll indeks 59 Prøve bruk: prosedyre TForm1.Button2Click (Sender: TObject), begynner RestartWindowsDialog (håndtak, PCHAR (' ME DIO LA Gana '), EW_RESTARTWINDOWS); end; 3) Plukke en dialog ikon
er den som vises når u ønsker å velge et ikon i Windows-miljøet, angir filnavn filnavnet fra hvor du skal pakke ut ikoner, er filenamesize lengden av strengen (typisk Lengde (Filename ) antar filnavn som streng), er iconIndex en variabel wich mottar iconindex valgt i dialogboksen. returverdien av funksjonen er sant hvis dialogen er vellykket og ok knappen er valgt, falsk hvis Avbryt-knappen trykkes funksjon PickIconDialog (Handle: THandle; Filename: PChar; FileNameSize: integer; Var IconIndex: integer): Boolean; STDCALL; eksterne 'shell32.dll' indeks 62; Sample bruk: prosedyre TForm1.Button3Click (Sender: TObject); Var IconIndex: Integer; begynne hvis PickIconDialog (håndtak, PChar ( 'shell32.dll'), Lengde ( 'shell32.dll') , IconIndex) så ShowMessage ( 'Selecciono' + IntTOStr (IconIndex)); end; 4) Kjør fil dialog
utføres når du velger startmenyen utføre, og er også sett i windows media player og internet explorer. her er api som vil gjøre utslaget prosedyren RunDialog (Handle: THandle; Ikon: Hicon; Directory: PChar; Tittel: PChar; Beskrivelse: PChar; Flags: integer); STDCALL; eksterne 'shell32.dll indeks 61 Prøve bruk: prosedyre TForm1.Button4Click (Sender: TObject), begynner RunDialog (Håndtak, Icon.Handle, PCHAR (' C: '), PCHAR (' SELECT den fordømte FIL), PCHAR ( ''), REF_NOBROWSE eller REF_NODEFAULT eller REF_CALCDIRECTORY); end; denne dialogen bruker følgende konstanter Book konst REF_NOBROWSE = 1; //Deaktiver browse knappen REF_NODEFAULT = 2; REF_CALCDIRECTORY = 4; //Beregne katalog basert på eierne banen REF_NOLABEL = 8; //Ingen beskrivelse label REF_NOSEPARATEMEM = $ 20; //Ingen sepated minne boksen (NT Only) i tilfelle du bruker NT erstatte alle pchar av PWCharThis er det nå i min neste artikkel vil jeg lage objekt wrappers for disse funksjonene, vil du finne den wrapper for dialogboksen Kjør svært nyttig