» Poradna » Programy

Delphi

 |   | 

Jak spustím v kódu nějakou externí aplikaci?
Jakou metodou smazat obsah komponenty StringGrid?
Díky moc za odpověď!

Odpovědi na otázku

 |   | 

Tak pro to spusteni ext. aplikace bych ti doporucil funkci winAPI (tzn. musis pridat do uses ShellAPI), napisu ti funkci, ktera to udela...
FileName - nazev souboru (i s cestou)
Params - parametry aplikace
DefaultDir - defaultni adresar, ve kterem se ma aplikace spoustet
ShowCmd - parametr typu zobrazeni (nejcasteji budes pouzivat SW_SHOW, jinak se mrkni do help WinAPI)
function ExecuteFile(const FileName, Params, DefaultDir: string;
  ShowCmd: Integer): THandle;
var
  zFileName, zParams, zDir: array[0..79] of Char;
begin
  Result := ShellExecute(Application.MainForm.Handle, nil, StrPCopy(zFileName, FileName), StrPCopy(zParams, Params), StrPCopy(zDir, DefaultDir), ShowCmd);
end;
 
A ten StringGrid? Myslim, ze na to funkce neni, ale neni problem si ji napsat. :o)
for i := 0 to StringGrid1.RowCount do
 for j := 0 to StringGrid1.ColCount do
  StringGrid1.Cells[j,i] := ''; // nejsem si jisty, co je v cells prvni, jestli sloupec nebo radek, vyzkousej, kdyztak i a j otoc
Pisu to z fleku, tak se omlouvam, jestli to nepujde...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

K predani parametru jako PChar jej nepotrebujes prohanet bufferem, staci pouzit pretypovani:

ShellExecute(Application.MainForm.Handle, 'Open', PChar(FileName), PChar(Params), PChar(DefaultDir), SW_SHOWNORMAL);

Pokud nejaky parametr nevyplnujes, predej jej jako nil.

Co se tyka StringGridu, tak jeho radky a sloupce jsou typu TStrings, takze bud v cyklu projdes radky nebo sloupce a pouzijes Rows[index].Clear

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

V Delphi existuje v unitě "Windows" funkce "WinExec" na spouštění externích programů.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

jen pozor sam Microsoft ji nedoporucuje pouzivat pro win32 aplikace. Pravdepobodne je zachovana z duvodu zpetne kompatibility. Alespon v helpu to oni pisou, takze pozor na neprijmna prekvapeni v budoucnu.
d.

Souhlasím  |  Nesouhlasím  |  Odpovědět




Určitě si přečtěte

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

** Teplotní extrémy dokážou překvapit. Seznamte se s rekordy v Česku i ve světě ** Rekordní hodnoty jsou mnohdy až k neuvěření ** Zjistěte, kdy ke bylo největší horko, zima, déšť či vítr

Karel Kilián | 7

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

** Apple odhalil své plány na zcela nové mapy ** Několik let pracuje na nových mapách, které by měly předběhnout konkurenci ** Objeví se s příchodem iOS 12 pro vybrané státy

Karel Javůrek | 50

Sex a rozmnožování při mezihvězdné cestě: Kolik lidí je potřeba pro let k Proximě Centauri?

Sex a rozmnožování při mezihvězdné cestě: Kolik lidí je potřeba pro let k Proximě Centauri?

** Vědci spočítali, jak velká by musela být posádka pro vícegenerační let k nejbližší hvězdné soustavě ** Proxima Centauri se nachází 4,3 světelných let od nás ** Za současných technologií bychom k ní letěli 6300 let

Petr Kubala | 53

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

** Apple aktualizoval notebooky MacBook Pro, dostaly nový hardware ** Těšit se můžete na nové procesory a větší paměť ** Cena nejvybavenějšího modelu překročí 200 tisíc korun

Martin Miksa | 99

Nová zbraň Microsoftu proti iPadu: Levný tablet Surface Go bude stát jen deset tisíc

Nová zbraň Microsoftu proti iPadu: Levný tablet Surface Go bude stát jen deset tisíc

** Microsoft představil nový tablet Surface Go ** Nový model zaujme nízkou cenou, ale schopnostmi zařízení Surface ** Microsoft nepoužil čip ARM, ale klasický procesor od Intelu 

Karel Javůrek | 116

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

** Čeští vědci pod vedením Tomáše Jungwirtha vyvíjí nový typ revolučního paměťového čipu ** Zatímco v současnosti elektronika pracuje s elektrony, v budoucnu to budou spiny elektronů ** Čipy budou moci být klidně i 1 000x rychlejší a úspornější

Karel Javůrek | 32

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

** Pornografie údajně představuje třetinu internetové obsahu a je technologický tahounem ** Do erotického obsahu postupně zasahuje i virtuální realita ** Kromě vizuálního vjemu se pracuje také na virtuálním uspokojení toho hmatového

Jan Dudek | 28

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

Google ADT-2: Miniaturní krabička s Android TV 8.0, kterou si nikdy nekoupíte

** Dlouho se nevědělo, co to přesně má být ** Pak se s krabičkou Google pochlubil na I/O ** Do „Chromecastu“ vtěsnal celý Android TV

Jakub Čížek | 24


Aktuální číslo časopisu Computer

Velký test 18 bezdrátových sluchátek

Vše o přechodu na DVB-T2

Procesory AMD opět porážejí Intel

7 NVMe M.2 SSD v přímém souboji